На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.
Вырисовывай из по порядку и замкни и получится ожерелье из пуговичек
Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
Помогите пожалуйста не могуууу