Вводится натуральное число. Если введенное число < 10 или > 99, то выводится на экран "NO", иначе, если сумма цифр выведенного числа > 10 и < 20, то выводится на экран "YES", иначе "LOCK". Для нахождения суммы цифр натурального числа, нужно это число разбить на цифры с помощью операций div и mod. Написать программу в паскаль.

Question

Информатика

Каллиник

6 год назад

Вводится натуральное число. Если введенное число < 10 или > 99, то выводится на экран "NO", иначе, если сумма цифр выведенного числа > 10 и < 20, то выводится на экран "YES", иначе "LOCK". Для нахождения суммы цифр натурального числа, нужно это число разбить на цифры с помощью операций div и mod. Написать программу в паскаль.

ОТВЕТЫ

Alim

Aug 5, 2019

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

246