Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. Пример:
Введите число >= 0: Введите число >= 0:
-234 1233
Нужно положительное число. Нет
Введите число >= 0:
1234
Да
решение паскаль.

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.

начну с того, что это логический код

дословный перевод

var n, i, m: целое число;

флаг: логический;

начать

readln(n); прочитать переменную

флаг: = false; флагу присвоить значение лжи

если (n mod 2< > 0), то i: =n-1 иначе i: =n;

в то время как i> 0 действительно начинаются

если мощность(2, i)< =n, то начинайте

write (power(2, i),' '); flag: = true; в этом случае флагу присвоить правдивое значание

конец;

i: =i-2;

конец;

если не флаг, то writeln(0);

конец

я особо в логических не шарю, но тут идёт по типу если это трава то это наркота

а если это дурь то это тоже наркота