Переведите с паскаля на кумир, надо
var n,k: integer;
begin
write('n=');
readln(n);
k: =1;
while k*k< =n do
begin
writeln(k*k);
k: =k+1;
end;
end.

Андріана1111111    1   24.01.2020 17:07    0