Дано двузначное число (водится с клавиатуры). Написать программу определения: превышает ли сумма его цифр третье число, которое вводится с клавиатуры. паскаль
Answers & Comments
aspect233
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.
1 votes Thanks 1
1mixa1995
спасибо)получается все числа не превышают?какое бы не вводили 2значное число?
Answers & Comments