Регистрация
KarinaKOSMOS
14.12.2021 14:35
Информатика
Есть ответ 👍

(x>=36) или не (x<12)?

157
412
Посмотреть ответы 1

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

kogoch
kogoch
4,5(4 оценок)
Var a,s: integer; begin s: =0; repeat write('введите число: '); readln(a); if (a mod 7=0) and (a mod 10=3) then s: =s+a; until a = 0; writeln('сумма всех чисел, кратных 7 и оканчивающихся на 3 равна ',s); readln end.

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