Задать вопрос
30 декабря, 04:16

1) Составить программу которая выводит на экран каждое 5-ое число и таких чисел 20.

2) Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.

+5
Ответы (1)
  1. 30 декабря, 05:42
    0
    1.

    var

    i: integer;

    A: array [1 ... 20] of integer;

    begin

    randomize;

    writeln ('Массив: ') ;

    for i:=1 to 20 do A[i]:=random (21) - 10;

    for i:=1 to 20 do write (A[i]:5) ;

    writeln;

    writeln ('Каждый пятый эелемент массива: ') ;

    for i:=1 to 20 do if i mod 5 = 0 then write (A[i]:5) ;

    end.

    2.

    var

    x, i: integer;

    A: array [1 ... 20] of integer;

    begin

    randomize;

    writeln ('Массив: ') ;

    for i:=1 to 20 do A[i]:=random (11) ; for i:=1 to 20 do write (A[i]:5) ;

    writeln;

    writeln ('Натуральные числа в диапазоне [5 ... 10]: ') ;

    for i:=5 to 10 do write (A[i]:5) ;

    writeln;

    x:=1;

    writeln ('Их произведение: ') ;

    for i:=5 to 10 do x:=A[i]*x;

    write (x:5) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) Составить программу которая выводит на экран каждое 5-ое число и таких чисел 20. 2) Составить программу которая вычисляет произведение ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) напишите программу, которая спрашивает целое число n и считает сумму целых чисел, Муму чётных чисел и сумму нечётных от 1 до n 2) напишите программу, которая спрашивает целые числа а и b и выводит на экран квадраты чисел от а до b 3) напишите
Ответы (1)
Как сделать задачу в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа X и Y. Если разность X и Y больше 0, то вычисляет и выводит на экран сумму всех целых чисел от Y до X, иначе вычесляет и выводит на экран разность всех целых
Ответы (1)
Написать программу, которая выводит на экран результаты следующих действий: 27-5= 11+21= 32/2= 2+2*2= (2+2) * 2= Написать программу, которая выводит на экран результаты следующих действий: 21-4= 21+11= 43/3= 3+3*3= (3+3) * 3=
Ответы (1)
Помогите по программе paskal: 1. дано целое число. напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат 2. дано целое число.
Ответы (1)
Решить задачУ "Составьте программу, которая вычисляет произведение натуральных чисел от 5 до 10 и выводит на экран результат" в PascalABC
Ответы (1)