Нкпишите программу которая в последовательности - вопрос №8115058 от МишаКарпунин 30.11.2022 12:35

Question

Информатика: Нкпишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчиващихся на 3

МишаКарпунин · Answer

var n,i,s,a: integer; begin   readln(n);   s:=0;   for i:=1 to n do begin     readln (a);     if (a div 7 0) and (a mod 10 = 3) then       s:=s+a;   end;   writeln(s); end....