Задать вопрос
18 марта, 11:24

Составить алгоритм и написать программы нахождения произведения чисел, модуль которых меньше 10 из 20 вводимых с клавиатуры целых чисел. В языке Паскаль!

+1
Ответы (1)
  1. 18 марта, 13:12
    0
    var a, p, i:integer;

    begin

    p:=1;

    for i : = 1 to 20 do

    begin

    read (a) ;

    if (abs (a) < 10)

    then p : = p * a;

    end;

    write (p) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить алгоритм и написать программы нахождения произведения чисел, модуль которых меньше 10 из 20 вводимых с клавиатуры целых чисел. В ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы