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

gkulgkuy gkulgkuy    2   26.04.2020 12:57    2

Ответы
Кипарисный Кипарисный  13.10.2020 21:37

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.

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