Вводится натуральное число. если введенное число - вопрос №10996377623 от Буууууууууууууурито 17.07.2020 12:10

Question

Информатика: Вводится натуральное число. если введенное число 10 или 99, то выводится на экран no , иначе, если сумма цифр выведенного числа 10 и 20, то выводится на экран yes , иначе lock . для нахождения суммы цифр натурального числа, нужно это число разбить на цифры с операций div и mod. написать программу в паскаль.

Буууууууууууууурито · Answer

Var s,n:integer;beginreadln(n);if (n 10) or (n 99) then writeln( NO ) elsewhile n 0 do begins:=s+n mod 10;n:= n div 10;end;if (s 10) and (s 20) thenwriteln( YES ) elsewriteln( LOCK );end....