Блог учителя Информатики

Решение задачи ExamBegin15


Условие задачи:

На вход в первой строке подается целое положительное число N, а в следующих N строках — набор из N вещественных чисел (по одному числу в строке). Вывести произведение всех чисел из исходного набора.


uses PT4Exam;

var
  x, i: integer;
  a, p: real;

begin
  Task('ExamBegin15');
  Read(x);
  p := 1;
  for i := 1 to x do
  begin
    read(a);
    p := p * a;
  end;
  Write(p:4:2);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий