Вычеслить среднее арифметическое от 5 до n(n вводится с клавиатуры). В

Вычеслить среднее арифметическое от 5 до n(n вводится с клавиатуры). В Паскаль)

Задать свой вопрос
1 ответ

var s: real; n,i: integer;

begin

write('Введите число N: ');

readln(n);

if ngt;5 then begin

s:=0;

for i:=5 to n do s:=s+i;

s:=s/(n-5+1);

writeln(s);

end else writeln('Введите другое число, больше 5');

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт