Напишите программу, в которой осуществляется ввод - вопрос №11499684 от TkAl06 10.06.2020 18:41

Question

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

TkAl06 · 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.