Вывести ** экран нечётные целые числа,их сумму, а также их квадраты и кубы нечётных целых...

Question

Вывести на экран нечётные целые числа,их сумму, а также их квадраты и кубы нечётных целых чисел от 1 до 9

Answer 1

var

i, s:integer;

 

begin

 

write('Нечётные числа: ');

 

for i:=1 to 9 do

if i mod 2=1 then

write(i,' ');

 

 

write(' Cумма: ');

 

for i:=1 to 9 do

if i mod 2=1 then

s:=s+i;

write(s,' ');

 

write(' Квадрат: ');

 

for i:=1 to 9 do

if i mod 2=1 then

begin

s:=i*i;

write(s,' ');

end;

 

write(' Куб: ');

 

for i:=1 to 9 do

if i mod 2=1 then

begin

s:=i*i*i;

write(s,' ');

end;

 

end.