Информатика, опубликовано 2018-08-22 19:15:16 by Гость
Вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую, равна ли сумма цифр числа задоному числу а помогите срочно!! контруха по инфе
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на