Регистрация
ВДРПДАОЦПУЦ
08.10.2021 04:08
Информатика
Есть ответ 👍

1 Дана таблица оценок 5 учеников по 5 предметам. Найти среднюю оценку по каждому ученику

278
469
Посмотреть ответы 1

Ответы на вопрос:

sashabisaev030303
sashabisaev030303
4,7(61 оценок)
// pascalabc.net var i,n,s1,s2,s3,s4: integer; begin   readln(n);   for i: =1 to n do begin       s1: =s1+i;       s2: =s2+i*i;       if i mod 2=0 then s3: =s3+i;       if (i> 9) and (i< 100) then s4: =s4+i;   end;   writeln(s1,' ',s2,' ',s3,' ',s4) end.

Популярно: Информатика