Задать вопрос
31 марта, 22:26

Дана арифметическая прогрессия из N членов. Число элементов N, 1-й элемент а1 и разность d задаются с клавитуры. Вывести все члены прогрессии на экран и вычислить сумму элементов прогрессии, значение которых меньше пяти. Решить задачу тремя способами. прошу помогите я буду очень благодарен.

+2
Ответы (1)
  1. 1 апреля, 00:28
    0
    Var

    a: array [1 ... 255] of integer;

    i, n, d, a1: integer;

    begin

    writeln ('n, d, a1') ;

    read (n, d, a1) ;

    a[1]:=a1;

    for i:=2 to n do a[i]:=a[i-1]+d;

    a1:=0;

    for i: = 1 to n do if a[i]<5 then a1:=a1+a[i];

    writeln ('summa:', a1) ;

    for i:=1 to n do write (a[i], ' ')

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дана арифметическая прогрессия из N членов. Число элементов N, 1-й элемент а1 и разность d задаются с клавитуры. Вывести все члены ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
1 задача. Вычислить произведение квадратов n первых натуральных чисел. Для любого n введенного с клвитуры. 2 Найти первое чётное натуральное числоЮ куб которого больше числа x, введенного с клавитуры. 3. Даны вещественные числа b1, b2, ... b10.
Ответы (2)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
Дан массив А из N целочисленных элементов. 1) Заполнить массив А целыми числами в интервале[1,100] и вывести на экран. Найти максимальный четный элемент и вывести его на экран.
Ответы (1)