Pascal:среднее арифм. всех целых чисел от 100 до b (bamp;gt;=100)

Pascal:среднее арифм. всех целых чисел от 100 до b (bgt;=100)

Задать свой вопрос
1 ответ
Rogram z1; Var n,I,s,k:integer; Begin Writeln ('n='); Readln (n); S:=0;k:=0; If ngt;=100 then For I:=100 to n do begin S:=i+s; K:=k+1;end; Writeln (s/k); Readln ; End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт