Переведите код с qbasic на pascal, : sub pq(n as - вопрос №8339395 от pomarinka1111 12.02.2023 08:16

Question

Информатика: Переведите код с qbasic на pascal, : sub pq(n as long) if n then m = int(sqr(n)) print m; call pq(n - m ^ 2) end if end sub

pomarinka1111 · Answer

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

procedure pq(n:integer);
begin
if n<>0 then begin
    var m:=Trunc(Sqrt(n));
    Writeln(m);
    pq(n-m*m)
    end
end;