Вычеслить среднее арифметическое от 5 до n(n вводится с клавиатуры). в паскаль)
solomia113
2
04.10.2019 14:01
0
Другие вопросы по теме Информатика
chief5
03.09.2019 23:10
cohka06
03.09.2019 23:10
vladimir1232
09.07.2019 03:00
umnyjchelovek
06.11.2019 11:31
puhova365
06.11.2019 09:53
vasilina777
06.11.2019 09:55
GoodT3am
29.06.2019 19:40
ПомидоркаЛ
22.05.2019 17:40
Shkola17032004
22.05.2019 17:40
Популярные вопросы
- в супермаркет привезли 3 целых 3/7 т риса, что на 1 целых 3/10 т меньше, чем...
1 - Помагите математика номер 6 а)б)в)г)се нужны...
2 - Определи результирующую силу. 37Н37Н vienuzd.bmp Результирующая сила равна...
2 - Сообщение о пейзажной лирике Полонского и Толстого А.К. ...
1 - Вывод сельского хозяйства...
2 - назвати приклади використання гумору і еронії у творах хамеліон і товстий...
3 - Используя свойства неравенства, запишите верное неравенство, которое получится...
1 - Назвіть виданих представників середньовічної літератури захід...
2 - напиши развёрнутый ответ по рассказу ,,Весенний дождь Что бы ты посоветовал...
3 - Организмы которые являются автотрофами а.мухоморб.зелёные водорослив.берёзаг.стаффилококкд.лягушкае.папоротник...
2
var s: real; n,i: integer;
begin
write('Введите число N: ');
readln(n);
if n>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.