ИНФОРМАТИКА, ЦИКЛ С ПРЕДУСЛОВИЕМ помогитеВвести натур.число, вывести квадраты и кубы

ИНФОРМАТИКА, ЦИКЛ С ПРЕДУСЛОВИЕМ помогите

Ввести натур.число, вывести квадраты и кубы всех чисел от 1 до этого числа.

Пример:
4
1: 1 1
2: 4 8
3: 9 27
4: 16 64

Задать свой вопрос
1 ответ

var N,i:integer;

BEGIN

readln(N);

i:=1;

while ilt;=N do begin

writeln(i,': ',sqr(i),' ',power(i,3));

i:=i+1;

end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт