Вводится натуральное число. Если введенное число < 10 или > 99, то выводится ** экран...

Question

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

Answer 1

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.