Вывести в столбик кубы целых чисел от 10 до 20, используя цикл while
vari:integer;begin i:=10; while i<21 do begin writeln(i*i*i, ', ');
i:=i+1; end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');
i:=i+1;
end;
end.