СРОЧНОО!! ПО ИНФОРМАТИКЕ ПОЖАЛУЙСТА!
вывести на экран квадраты и кубы целых чисел от 1 до 8
Программа ПаСКАЛЬ
с циклами ,,Пока" "До"
вывести на экран квадраты и кубы целых чисел от 1 до 8
Программа ПаСКАЛЬ
с циклами ,,Пока" "До"
More Questions From This User See All
Answers & Comments
Verified answer
Var i, k: byte;begin
i := 1;
k := 1;
While i < 9 do begin
write (i * i,' ');
i := i + 1
end;
writeln;
Repeat
write (k * k * k, ' ');
k := k + 1;
Until k = 9
end.