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

Question

Информатика

Екатеринка

18 сентября, 18:37

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

+2

Ответы (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.