Регистрация
lyudsiya1337
04.03.2021 22:56
Информатика
Есть ответ 👍

Даны n чисел.верно ли,что их проищведение меньше 1000.

135
308
Посмотреть ответы 3

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

shovkoplyas123456
shovkoplyas123456
4,8(68 оценок)
Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

  if readseqreal(readinteger).aggregate(1.0, (a, b)-> a * b) < 1000

    then print('верно')

  else print('неверно')

end.

пример 4 14.5 0.018 56 3.7 верно
linakirilinaa
linakirilinaa
4,8(63 оценок)

нет! так как это могут быть числа 20 23 43 5 и т.д., они могут в произведении давать число, которое человеку неизвестно

Яркf
Яркf
4,5(59 оценок)
Program array1;   var a: array[1..10] of integer; n, i: integer;   begin write('введите n: '); readln(n); a[1] : = 1; for i : = 2 to n do a[i] : = a[i - 1] + 2; for i : = 1 to n do write(a[i],' ')end.

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