УМОЛЯЮ ЛЮДИ ДОБРЫЕ!!!!!ПОМОГИТЕ С ИНФОРМАТИКОЙ, А ТО Я ОСТАНУСЬ НА 2 ГОД УМОЛЯЮЮЮ ВАСССССССС!!!!!!!!!!!!!!!!!!!!!!!!!!
Приложения:

Ответы
Ответ дал:
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.
2ielena2005:
прости пожалуйста, а по русски как это писать?учительница пишет это все на русском
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад