Question

Переведите с паскаля на кумир,очень надо
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.

Answer 1

цел n, k

алг

нач

вывод 'n='

ввод n

k := 1

нц пока k * k <= n

вывод k * k, нс

k := k + 1

кц

кон