Цикл с предусловием паскаль ввести натур.число, вывести квадраты и кубы всех чисел от 1 до этого числа. пример: 4 1: 1 1 2: 4 8 3: 9 27 4: 16 64

samojlenko15 samojlenko15    2   08.10.2019 16:30    0

Ответы
Dedret Dedret  10.10.2020 04:42

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика