Дано двузначное число (водится с клавиатуры). Написать программу определения: превышает ли сумма его цифр третье число, которое вводится с клавиатуры. паскаль

Дано двузначное число (водится с клавиатуры). Написать программу определения: превышает ли сумма его цифр третье число, которое вводится с клавиатуры. паскаль
Гость
Ответ(ы) на вопрос:
Гость
var a,b,s,k : integer;begink := 0;s := 0;readln (a);while a > 0 do begink := a mod 10;s:= s + k;a := a div 10;readln (b);if (s > b) thenwriteln ('Превышает');if (s < b) thenwriteln ('Не превышает');end;end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы