Нкпишите программу которая в последовательности - вопрос №8115058 от Про100карина666 12.11.2021 08:12

Question

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

Про100карина666 · 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....