Вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую, равна ли сумма цифр числа задоному числу а помогите срочно!! контруха по инфе
Вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую, равна ли сумма цифр числа задоному числу а
помогите срочно!! контруха по инфе
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы