выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.
Ответы
Ответ дал:
0
program zadacha;
var a,p,n,i:integer;
begin
writeln;
writeln('введи число n');{число, до которого перемножаем четные числа}
read(n);
p:=1;
i:=2;
while p<n do
begin
write(i);
write(';');
p:=p*i;
i:=i+2;
end;
end.
var a,p,n,i:integer;
begin
writeln;
writeln('введи число n');{число, до которого перемножаем четные числа}
read(n);
p:=1;
i:=2;
while p<n do
begin
write(i);
write(';');
p:=p*i;
i:=i+2;
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад