Возвести в куб нечётные числа от 1 до 20 (В Паскале)

Question

Информатика

Анисим

27 апреля, 06:32

Возвести в куб нечётные числа от 1 до 20 (В Паскале)

+4

Ответы (1)

Знаете ответ?

Гуля · Answer 1

Var a:array[0 ... 19] of integer;

i:integer;

begin

For i:=0 to 19 do

begin

a[i] : = i + 1;

write (a[i], ' ') ;

end;

writeln () ;

for i:=0 to 19 do

begin

if i mod 2 = 0 then a[i] : = a[i]*a[i]*a[i];

write (a[i], ' ') ;

end;

end.