Вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую,...

Question

Вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую, равна ли сумма цифр числа задоному числу а


помогите срочно!! контруха по инфе

Answer 1

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.