Question

Написать программы для следующих задач: 1. Распечатать кубы первых 10 натуральных чисел. 2. Найти среднеарифметическое значение для 12 введённых с клавиатуры чисел.
Даю 100 баллов

Answer 1

Ответ:

1.

program z1;

var i:integer;

begin

for i:=1 to 10 do

writeln(i:2,'^3 = ',i*i*i)

end.

2.

program z2;

var i,a,s:integer;

begin

for i:=1 to 12 do

begin

write ('a',i,' = ');

readln (a);

s:=s+a;

end;

writeln('Среднеарифметическое значение равно ',s/12)

end.