Question

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

Answer 1

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.