Регистрация
BonYseT
23.12.2020 16:02
Информатика
Есть ответ 👍

Напишите программу вычисления следующих выражения:

218
271
Посмотреть ответы 1

Ответы на вопрос:

ffplfref
ffplfref
4,6(96 оценок)
Var a,b,x,s: integer; begin write('a = '); readln(a); write('x = '); readln(x); b: =a; s: =0; while b> 0 do   begin   s: =s+b mod 10;   b: =b div 10;   end; writeln('s = ',s); if s> x   then writeln('сумма цифр больше ',x)   else writeln('сумма цифр не больше ',x); end. пример: a = 31854x = 15s = 21 сумма цифр больше 15

Популярно: Информатика