Паскаль. Дано двузначное число m и некоторое число k. Определить равна ли сумма цифр числа m числу k

Question

Информатика

Деена

2 мая, 23:43

Паскаль. Дано двузначное число m и некоторое число k. Определить равна ли сумма цифр числа m числу k

+5

Ответы (1)

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

Лада · Answer 1

Program qq;

uses crt;

var

m, k, a, b, d, c:integer;

begin

readln (m, k) ;

a:=m mod 10;

b: = (m div 10) mod 10;

c: = (m div 10) div 10;

d:=a+b+c;

if k=d then Writeln ('Да') else Writeln ('Нет') ;

Readkey;

End.