СРОЧНО!!! ПОМОГИТЕ, ПОЖАЛУЙСТА!!!
Напишите программу, в которой осуществляется ввод целых чисел до тех пор, пока не будет введена единица, и подсчет произведения положительных чисел, используя оператор repeat
Напишите программу, в которой осуществляется ввод целых чисел до тех пор, пока не будет введена единица, и подсчет произведения положительных чисел, используя оператор repeat
More Questions From This User See All
Answers & Comments
Ответ:
var a,s: integer;
begin
s:=1;
repeat
write('Введите число: ');
readln(a);
if (a>0) then s:=s*a;
until a=1;
writeln('Произведение положительных чисел: ',s);
end.