Нкпишите программу которая в последовательности - вопрос №8114724 от TheVladChannel 07.07.2022 19:59

Question

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

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