Составить программу на языке Паскаль которая запрашивает 2 числа и выводит сперва квадраты чисел от единицы до первого числа, а затем кубы чисел от единицы до второго числа. (Например при вводе чисел 6 и 4 программа должна вывести "Квадраты чисел: 1 4 9 16 25 36. Кубы чисел: 1 8 27 64")
Program lolol;
Var s, n, i:Integer;
Begin
Readln(s);
Readln(n);
Writeln('Квадраты чисел:');
For i:= 1 to s do
Writeln(i*i);
Writeln('Кубы чисел:');
For i:= 1 to n do
Writeln(i*i*i);
End.
(Паскаль)
Объяснение:
Начало - переменные s, n, i - ввод s - ввод n - вывод *цикл s* - вывод *цикл n* - конец.