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

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


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

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


uses PT4Exam;

var
  a, sum: real;

begin
  Task('ExamBegin17');
  sum := 1;
  ReadLn(a);
  while a > 0 do
  begin
    sum := sum * a;
    readln(a);  
  end;
  WriteLn(sum:4:2);
  
end.

Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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