вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую, равна ли сумма цифр числа задоному числу а
помогите срочно!! контруха по инфе
Answers & Comments
HRAshton
Var a, b, c, i: integer; d: string; begin readln(a, b); d := inttostr(a); for i := 1 to length(d) do c := c + strtoint(d[i]); if (b = c) then writeln('Yes') else writeln('No'); end.
Answers & Comments
d: string;
begin
readln(a, b);
d := inttostr(a);
for i := 1 to length(d) do
c := c + strtoint(d[i]);
if (b = c) then writeln('Yes') else writeln('No');
end.