Регистрация
Pazitifon3000
08.04.2022 01:10
Информатика
Есть ответ 👍

Паскаль инфа 9 класс хелп запрлсить 10 целый чисел , вычислить произведение чисел , которые в отрезок от 10 до 20

166
433
Посмотреть ответы 2

Ответы на вопрос:

LoveSammer
LoveSammer
4,6(59 оценок)
Var     a,i: integer;     p: real; begin p: =1; writeln('введите 10 целых чисел'); for i: = 1 to 10 do       begin       read(a);       if (10< =a)and(a< =20) then p: =p*a;       end; writeln('p = ',p); end.
keep19995
keep19995
4,6(36 оценок)
#! : ) i=list( min=1000 for k in range(len(i)):       s=int(i[k])       if (s< min)and(s> 0):             min=s print(min)

Популярно: Информатика