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