profile
Опубликовано 5 лет назад по предмету Информатика от honeYmonnY

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

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

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

  1. Ответ
    Ответ дан supersuperkirip54irs

    var N,i:integer;

    BEGIN

    readln(N);

    i:=1;

    while i<=N do begin

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

    i:=i+1;

    end;

    end.