Регистрация
guest246
11.02.2023 20:42
Информатика
Есть ответ 👍

Назначение Excel …
1)проведение расчетов, решение оптимизационных задач, построение диаграмм, создание web-документов
2)проведение расчетов
3)проведение расчетов, решение оптимизационных задач, построение диаграмм
4)расчетов, решение оптимизационных задач

113
220
Посмотреть ответы 1

Ответы на вопрос:

Ludok0309
Ludok0309
4,7(27 оценок)

program CheckSum;

var

number1, number2, number3: longint;

function Check(n: longint): boolean;

var

sum: longint;

begin

sum := 0;

while n > 0 do

begin

sum := sum + n mod 10;

n := n div 10;

end;

Check := sum = 10;

end;

begin

writeln('Введите два числа через пробел:');

readln(number1, number2);

if number1 < 0 then

begin

write('Нужно ввести положительное число.');

end

else

begin

if Check(number1) then

begin

write('Да');

end

else

begin

write('Нет');

end;

end;

if number2 < 0 then

begin

write(' Нужно ввести положительное число.');

end

else

begin

if Check(number2) then

begin

write(' Да');

end

else

begin

write(' Нет');

end;

end;

writeln();

repeat

write('Введите число >= 0: ');

readln(number3);

if number3 < 0 then

begin

writeln('Нужно ввести положительное число.');

end;

until number3 >= 0;

if Check(number3) then

begin

writeln('Да');

end

else

begin

writeln('Нет');

end;

end.

Популярно: Информатика