Question

УМОЛЯЮ ЛЮДИ ДОБРЫЕ!!!!!ПОМОГИТЕ С ИНФОРМАТИКОЙ, А ТО Я ОСТАНУСЬ НА 2 ГОД УМОЛЯЮЮЮ ВАСССССССС!!!!!!!!!!!!!!!!!!!!!!!!!!​

Answer 1

Ответ:

Паскаль

Объяснение:

var a,s,n,i:integer;

begin

  s:=0;

  write('kol-vo chisel:'); read(n);

  if n>100 then writeln('error!');

  begin

    writeln('vvedite chisla');

    for i:=1 to n do

    begin

      read(a);

      if a>300 then write('error!');

      if (a mod 6=0) then s:=s+a;

    end;

    write('summa=',s);

  end;

end.