Переведите из паскаля в кумир Program nomer_2;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=1 to n do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.

ЮлічкаВдовіна    3   15.02.2022 01:53    2