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

Question

Информатика

Кетевань

26 ноября, 15:08

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

+3

Ответы (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.