Задать вопрос
29 апреля, 00:08

Запросить 200 чисел, вычислить произведения чисел, которые не попадают в отрезок от - 100 до 100

+4
Ответы (1)
  1. 29 апреля, 01:36
    0
    Program sdasd;

    var a, i, otv:integer;

    begin

    otv: = 1;

    for i: = 1 to 200 do

    begin

    readln (a) ;

    if (a 100) do otv: = otv * a;

    end;

    writeln (otv) ;

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