Составить программу на языке Паскаль которая запрашивает 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* - конец.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.