Нкпишите программу которая в последовательности - вопрос №8114381 от svetaredkina 06.02.2021 11:41

Question

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

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