Напишите программу которая в последовательности - вопрос №8550597 от maZIK007 29.12.2022 07:23

Question

Информатика: Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчивающихся на 2. программа получает на вход натуральные числа и количество введенных чисел неизвестно последовательность чисел заканчивается числом 0. количество чисел не превышает 1000 . введенные числа не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2. входные данные: 112, 24, 42, 49, 22,0 выходные данные: 154

maZIK007 · Answer

Program M1; var s,x:integer; begin s:=0; x:=1; while x 0 do begin read(x); if (x mod 7=0) and (i mod 10=0) then s:=x+s; end; writeln( summa= ,s); end....