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

паскаль

Question

Информатика

Паша

13 сентября, 03:19

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

паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Сима · 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.

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

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

паскаль