tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу на
Составить программу на языке паскаль. найдите среднее ариыметическое натуральных чисел от 1 до n кратных 5.
SeaN014
2 29.06.2019 16:50
0
Ответы
lollerkaa
02.10.2020 15:21
Program z1;
var a:array[1..10000] of longint;
k,i,s,r:longint;
v:real;
begin
read(k);
for i:=1 to k do
read(a[i]);
s:=1;
r:=0;
v:=0;
for i:=1 to k do
if (a[i] mod 5)=0 then begin
s:=s*a[i];
r:=r+1;
end;
v:=s/r;
write(v);
end.
ПОКАЗАТЬ ОТВЕТЫ
chertan98
02.10.2020 15:21
{на основе формулы арифметической прогессии}
var
n: integer;
begin
readln(n);
writeln((5+5+5*(n div 5 -1))/2) ;{((a1+a1+d*(n-1))/2)}
end.
{или перебором без математики}
var
i,n,k: integer;
s:real;
begin
k:=0;
readln(n);
for i:=1 to n do
if i mod 5=0 then begin s:=s+i; k:=k+1; end;
writeln(s/k) ;
end.
Пример
n=100
summa=52.5
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kendebaeva06
26.05.2019 17:40
ответить на 1)надпись на клавише,находящейся рядом с клавишей pause 2)надпись на клавише ,при нажатии на которую происходит отмена действия или выход из некоторого состояния 3)...
Вуди228
26.05.2019 17:40
Як створити 16 копий файлу чи папки, виконавши тильки чотири операции копиювання? (только напишите на украинском)...
Valentina54
01.05.2020 15:16
Почему после коррекции уровней гистограмма не сплошная, а состоит из отдельных полосок?...
porotnikova03
01.05.2020 15:16
Что понимается под информационными технологиями...
Горова2007
05.03.2022 18:13
Неизвестно кто неизвестно кому отправил зашифрованную записку. Каждая буква была заменена на свой порядковый номер в русском алфавите. Расшифруй записку и ответь на вопросы.14101920618...
mozg206
05.03.2022 18:45
Бабушка Димы решила приготовить несколько салатов. Стоимость ингредиентов для них представлена в таблице. Сколько стоит салат Ореховый?...
AnnaVag8912
11.08.2019 20:20
Замените некоторые слова противоположным по смыслу (или просто другим, если противоположного не существует) и верните пословицам первоначальный вид. скажи мне, какой у тебя компьютер,...
D1manch1k
11.05.2020 14:42
Құжатты баспаға жіберу үшін қандай әрекеттер орындау керек?...
Jason19
11.05.2020 14:42
Человек, группа людей, животные или техническое устройство выполнять определенные набор команд это...
Xonus
11.05.2020 14:42
Дан фрагмент текста. Столица 1: Нур-Сулан с населением 1 078 362 человек a) Определите назначение знака 1 б) Определите назначение знака іі...
Популярные вопросы
47. Спишите предложения, вставляя недостающие знаки препинания. Прoкoммeнтируйте...
3
Look at the film poster and read the review. Highlight the words that describe...
3
1 What are you going to write? 2 Who is going to read it?3 What should your...
3
Найдите значение выражения |х|-|х-27|+28...
2
English-Russian Hobbies and leisureTas k1/UE / gram m Atika / Real simpleAnswer...
3
қоштасу сөздерін тиістісіне ( үлкен - кіші , ерлер - әйелдер , құқықтарға пайдаланып...
2
Шығыс түрік қағанатының алғашқы қағаны...
2
В начальный момент времени рамка расположена параллельно к линиям магнитной...
3
Как осуществляется перенос энергии от батарей отопления к воздуху в комнате?...
2
B) Cover the sentences. Look at the pictures. Work in an What times is it on...
2
var a:array[1..10000] of longint;
k,i,s,r:longint;
v:real;
begin
read(k);
for i:=1 to k do
read(a[i]);
s:=1;
r:=0;
v:=0;
for i:=1 to k do
if (a[i] mod 5)=0 then begin
s:=s*a[i];
r:=r+1;
end;
v:=s/r;
write(v);
end.
var
n: integer;
begin
readln(n);
writeln((5+5+5*(n div 5 -1))/2) ;{((a1+a1+d*(n-1))/2)}
end.
{или перебором без математики}
var
i,n,k: integer;
s:real;
begin
k:=0;
readln(n);
for i:=1 to n do
if i mod 5=0 then begin s:=s+i; k:=k+1; end;
writeln(s/k) ;
end.
Пример
n=100
summa=52.5