6 сентября, 21:49

1. Вводится не менее восьми чисел. Конец ввода 0. Найти сумму первых пяти чисел и произведение последних пяти чисел. Составить блок-схему и программу к задаче.

2. Вводится текст. Конец ввода F4. Найти количество букв.

+2
Ответы (1)
  1. 6 сентября, 23:13
    -1
    Const

    n = 5; //Емкость памяти типа "кольцо"

    type

    Ring = array[1 ... n] of integer;

    var

    ir: integer;

    R: Ring;

    procedure Add2Ring (a: integer) ;

    / / Добавляет в кольцо очередной элемент

    begin

    if ir = n then ir : = 1

    else ir : = ir + 1;

    R[ir] : = a

    end;

    var

    i, S, d: integer;

    P: longint;

    begin

    S : = 0;

    ir:=0;

    writeln ('Вводите числа, 0 - конец ввода') ;

    for i : = 1 to n do

    begin

    readln (d) ;

    S : = S + d;

    Add2Ring (d)

    end;

    repeat

    readln (d) ;

    if d 0 then Add2Ring (d) ;

    until d = 0;

    P : = 1;

    for i : = 1 to n do P : = P * R[i];

    writeln ('Сумма первых ', n, ' чисел: ', S, ', произведение последних: ', P)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1. Вводится не менее восьми чисел. Конец ввода 0. Найти сумму первых пяти чисел и произведение последних пяти чисел. Составить блок-схему и ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Ответы (1)
Переведите число 202 из восьмеричной системы счисления в десятичную
Ответы (1)
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Ответы (1)
Вводятся 3 числа, вывести на экран нечетные числа pascal
Ответы (1)
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Ответы (2)
Мощность первого в алфавита составляет 2048 символов информационный вес символа на второго алфавита она 2 бита меньше чем информационный вес символа из первого алфавита определите мощность второго алфавита
Ответы (1)
Известно правило кодирования - после каждой гласной буквы ставится буква "и", после каждой согласной - "ц". Зашифруй слова: практикум, принтер, секрет, честь.
Ответы (1)
Представить целое десятичное число 171 во внутримашинном представлении размером два байта.
Ответы (1)
Для записи текста использовался 64-символьный алфавит. Какое колисество информации в байтах содержит 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?
Ответы (1)
Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Ответы (1)