СРОЧНОО!! ПО ИНФОРМАТИКЕ ПОЖАЛУЙСТА!
вывести на экран квадраты и кубы целых чисел от 1 до 8
Программа ПаСКАЛЬ
с циклами ,,Пока" "До"


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.

Оцени ответ

Загрузить картинку
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

ПОИСК ПО САЙТУ



ПРЕДМЕТЫ

Показать ещё