Нкпишите программу которая в последовательности натуральных - вопрос №8114556 от LilllOOo 28.12.2022 13:47

Question

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

LilllOOo · 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....