ПОМОГИТЕ СРОЧНО!!!! (напишите пожалуйста схему и программу )
условие задачи : вводится числа .Найти произведение чисел пока не будет введено 1
conwi9zemke:
я хз в инете порылся
я не хакер UwU
while (y!=1)
{
scanf ("%d,%d", &x, &y);
printf ("%d\n", x*y);
}
{
scanf ("%d,%d", &x, &y);
printf ("%d\n", x*y);
}
или
var
n, pro: integer;
begin
pro := 1;
repeat
write('Введите число: ');
readln(n);
if n <> 0 then
pro := pro * n;
until (n = 0);
write('pro=', pro);
end
n, pro: integer;
begin
pro := 1;
repeat
write('Введите число: ');
readln(n);
if n <> 0 then
pro := pro * n;
until (n = 0);
write('pro=', pro);
end
спасибо, но это чуть чуть не то
Ответы
Ответ дал:
0
Объяснение:
Program zero;
Var a, b, c:Real;
Begin
b:=1;
a:=0;
While a=0 do
Begin
Whiteln('Введите число:');
Readln(c);
If c<>1 then
b:=b*c
else
a:=1
End;
Whiteln('Произведения чисел равно ', b) ;
Readln
End.
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад