Ввести с клавиатуры двухзначное число.опред.,равна ли сумма его цифр 10. решить в паскале
Ввести с клавиатуры двухзначное число.опред.,равна ли сумма его цифр 10.
решить в паскале
Гость
Ответ(ы) на вопрос:
Гостьprogram proga;
uses crt;
var
x:byte;
begin
readln(x);
if x=19 or x=28 or x=37 or x=46 or x=55 or x=64 or x= 73 or x=82 or x=91 then
writeln(сумма чисел в двухзначном числе равна 10)
else
writeln(сумма чисел в двухзначном числе не равна 10) ;
end.
Не нашли ответ?
Похожие вопросы