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

1

Ответы и объяснения

2014-03-10T21:16:33+00:00
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.