Напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8

Показать ответ

Ответ:

nikbayy

05.07.2020 13:24

Var
    d: integer;
    n := 0;
    s := 0;

begin
    repeat
        readln(d);
        if (d > 0) and (d mod 8 = 0) then begin
            s := s + d;
            n := n + 1;
        end
    until d = 0;
    writeln('Avg = ',s / n)
end.

0,0(0 оценок)

Популярные вопросы: Информатика

pyankova06

18.04.2022 03:59

1.дано трехзначное число найти разность между количеством единиц и тысяч данного числа. 2. дано трехзначное число. найти произведение сотен и десятков данного числа. 3. из...

panicheviwan

11.11.2021 20:52

(10 класс информатика, семакин)придумайте какие-нибудь новые формы представления алгоритмов, кроме тех, что описаны в параграфе. ...

ffff40

18.02.2022 05:56

Уисполнителя омега две команды, которым присвоены номера: 1. прибавь 2; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). выполняя первую из них, омега увеличивает...

kav2003

09.07.2021 01:48

1) разработать программу согласно блок схеме 2)разработать программу «контроль веса», которая вычисляет оптимальный вес и, в зависимости от результата, выводит сообщения:...

petrchisp0abir

30.04.2021 20:54

Исполнитель шифровальщик из одной цепочки символов получает новую цепочку следующим образом: если цепочка начинается с гласной буквы, шифровальщик меняет местами первую и...

aidanmoretti

22.12.2022 20:49

Program tyo; var a: array of array of integer; p: array of integer; i, j,t,cnt,l,u, sum, w: integer; m,n,k : integer; begin read (m); read (n); read (k); setlength (p, m+1);...

nemkovvlad1

27.04.2021 19:08

Исполнитель шифровальщик из одной цепочки символов получает новую цепочку следующим образом: если цепочка начинается с гласной буквы, шифровальщик переставляет первую букву...

fake23

01.11.2022 20:34

Исполнитель шифровальщик из одной цепочки символов получает новую цепочку следующим образом: если длина цепочки - нечётное число, шифровальщик удваивает центральную букву,...

skarpion83

21.06.2021 23:57

Определите значение переменной a после выполнения данного алгоритма: a = 4; b = 6; b = 8 + a * b; a = b / 4 * a. в ответе укажите одно целое число – значение переменной a....

Danfdffefd

27.10.2022 19:28

Определите значение переменной а после выполнения данного алгоритма: a = 3; b = 6; b = 12 + a * b; a = b / 5 * a. в ответе укажите одно целое число – значение переменной...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку