Переведите код с qbasic на pascal, : sub pq(n as - вопрос №8339395 от Polina2100Kaddik 06.07.2020 15:48

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

Polina2100Kaddik · 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;