Получить и вывести на экран произведение действительных чисел - Pascal ABC

Формулировка задачи:

Даны действительные числа Известно, что .Получить и вывести на экран , где - последнее положительное число из всех введённых. Окончание ввода - отрицательное число - в вычислениях не участвует.

Код к задаче: «Получить и вывести на экран произведение действительных чисел - Pascal ABC»

textual
var a1,a2,a,p:real;
begin
repeat
writeln('Введите 2 положительных числа');
readln(a1,a2);
until(a1>0)and(a2>0);
p:=a1*a2;
writeln('Вводите положительные числа, окончание ввода отрицательное число');
repeat
 repeat
  readln(a);
 until a<>0;
if a>0 then p:=p*a;
until a<0;
write('Произведение=',p);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.067 из 5


СДЕЛАЙТЕ РЕПОСТ