Есть ответ 👍

Решить информатику, задача в самом конце тоже

182
328
Посмотреть ответы 1

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

Nana08
4,7(54 оценок)

Var        a,i: integer;       s: integer;         sr: real;       b: integer; begin      writeln('введите а: ');       readln(a);       b: =200;       for i: =a to 200 do   begin      s: =b+i;     end;       sr: =s/a;       writeln('среднее значение: ',sr); end.

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