profile
Опубликовано - 1 месяц назад | По предмету Информатика | автор Аноним

Даны 10 любых чисел , найти произведение только тех , которые лежат в диапазоне от 20 до 40

  1. Ответ
    Ответ дан Журавлёва Елизавета
    Program probzvedenbe;
    Var
    a, b, c: integer;
    Begin
    c := 1;
    for b:=0 to 9 do
    begin
    readln (a);
    if (a >= 20) and (a <= 40) then
    c := c * a;
    end;
    writeln('Произведение введенных числе, находящихся в диапазоне от 20 до 40 равно ', c);
    readln;
    End.

    (Программа проверена в PascalABC)
    0