uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to n do
writeln(i,' ',i*i,' ',i*i*i);
readln;
end.
Похожие записи/страницы:
- Составить программу по условию:с клавиатуры вводится последовательность вещественных чисел. Выведите данные…
- 1)дано натуральное число, удалить все цифры А (А вводится с клавиатуры)2)найти все числа от 1 до 200,у которых…
- На вход программе подается натуральное число n (меньше или равно) 10 в 9 степени. Проверьте, можно ли…
- Найти наименьшее натуральное число, представимое двумя различными способами в виде суммы кубов двух натуральных…
- С клавиатуры вводится восемь двухзначных целых чисел. Если число кратно 5, то найти произведение цифр, из…
- Дано натуральное число . Определить сумму кубов его цифр - Pascal(Паскаль)
- Создание матрицы 5x4, вывод ее на экран по строкам - Pascal(Паскаль)
- Создайте двумерный массив вещественных чисел имеющих 10 строк и 15 столбцов. Выведите его на экран. Затем…