Question

4.составте программу ,выводящую на экран числа от 1 до 10 , по одному числу в строке. 5.дополните программу из 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде: 1 1 1 2 4 8 3 9 27 10 100 1000 , 4 писать не нужно ! поставлю лучщий ответ и ""

Answer 1

Var i :integer;
begin
For i:=1 to 10 do
writeln(i,' ',sqr(i),' ',i*sqr(i));
end.