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

0 голосов
82 просмотров

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


image

Информатика (16 баллов) | 82 просмотров
Дан 1 ответ
0 голосов

Ответ:

Паскаль

Объяснение:

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.

(108 баллов)
0

прости пожалуйста, а по русски как это писать?учительница пишет это все на русском

0

весь код на русском?

0

даааа

0

типо "алг нач цел " и тд

0

не знаю, честно..

0

божееееееееееее

0

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡♡ПОМОГЛО

0

всегда пожалуйста :)