Вводится последовательность чисел, признак конца ввода, ввод числа 0. найти сумму чисел не кратных 7. sos

300

500

Посмотреть ответы 2

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

ника2761

Информатика

4,5(58 оценок)

Program n1; var sum,a: integer; begin sum: =0; while true do begin readln(a); if(a mod 7< > 0) then sum: =sum+a; if(a=0) then break; end; writeln(sum); end.

Nikita1356

Информатика

4,7(89 оценок)

Интернет — всемирная система объединённых компьютерных сетей, построенная на использовании протокола IP и маршрутизации пакетов данных. Готов поспорить, что дан… ... Интернет - это всемирная паутина, которая соединяет миллиарды людей! Это удивительно, ведь эти люди могут общаться, видеть друг друга! Это всё предоставляет им Интернет!

это ты хотел?)