profile
Опубликовано 5 лет назад по предмету Информатика от eliseewa26

Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет произведение чисел, которые являются двузначными. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа . В Паскале.

  1. Ответ
    Ответ дан supersuperkirip54irs

    var N,i,a,p:integer;

    BEGIN

    readln(N);

    p:=1;

    for i:=1 to N do begin

    read(a);

    if (a>9) and (a<100) then

    p:=p*a;

    end;

    writeln(p);

    end.