Напишите программу, в которой осуществляется - вопрос №11500252 от ayserg1980ozvpli 21.04.2021 12:39

Question

Информатика: Напишите программу, в которой осуществляется ввод целых чисел до тех пор, пока не будет введена единица, и подсчет произведения положительных чисел, используя оператор repeat

ayserg1980ozvpli · Answer

var a,s: integer;

begin

s:=1;

repeat

write('Введите число: ');

readln(a);

if (a>0) then s:=s*a;

until a=1;

writeln('Произведение положительных чисел: ',s);

end.