Необходимо написать программку на паскале непременно используя цикл For.Программка вычисляет

Question

Необходимо написать программку на паскале непременно используя цикл For.Программка вычисляет

Необходимо написать программку на паскале непременно используя цикл For.

Программа вычисляет среднее арифметическое положительных частей ряда чисел. Каждый элемент ряда вычисляется по формуле: (12*K-21)/3, где K--номер элемента в ряду. Всего частей--необходимо спросить.

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

Ванька
Информатика
2019-07-10 11:59:05
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

прочитай отрывки из творения чехова которое он назвал письмо учёному соседу

побудуй прямокутник,довжина якого 5см,а ширина на 2см менша.Знайди його периметр.

Найдите координаты точек скрещения графика функции y=-x+2x-3 с осью ординат:

Обоснуйте истинность или ложность суждения: quot;В отличсие от резкого света шум

Окончите предложения:1Что бы ты ни читал ...2Чтобы ты не читал ...3Что

Электронную формулу атома неона имеет:а.Mg б.Na в.F г.Be

МН-высота треугольника КМР с прямым углом М,КМ=12.Найдите КН,если угол НМР=60градусов

Помогите расставить запетые очень безотлагательно !!! Это было начинающая профессиональная артистка

подскажите пожалуйста улицы Сыктывкара информация почему их так окрестили

Какие чувства у нас вызывает музыка ноктюрна?

Маргарита Гомаркова · Answer 1 · 2019-07-10 12:04:36+3:00

Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
    Begin
    Write((12*K-21)/3,' ');
    if (12*K-21)/3 gt; 0 then
       Begin
       S:=S+(12*K-21)/3;
       n:=n+1
       End;
    End;
WriteLn;
Write('Sr = ',S/n)
End.

О проекте

Необходимо написать программку на паскале непременно используя цикл For.Программка вычисляет

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