1)с клавиатуры вводятся количество целых чисел и сами числа. найти среднее арифметическое квадратов введенных чисел 2)с клавиатуры вводятся натуральные числа a и n. Написать программу вычисления a в степени n.
Answers & Comments
da1hh3
2)program abc; var i,b,a,s:integer; begin read(a,b); i:=0; s:=a; for i:=1 to b-1 do s:=s*a ; writeln(s); end.
0 votes Thanks 0
da1hh3
1)program abc; var i,b,a,s:integer; begin read(b); for i:=1 to b do begin read(a); s:=s+(a*a) end; writeln(s/b); end.
Answers & Comments
var i,b,a,s:integer;
begin
read(a,b);
i:=0;
s:=a;
for i:=1 to b-1 do
s:=s*a ;
writeln(s);
end.
var i,b,a,s:integer;
begin
read(b);
for i:=1 to b do
begin
read(a);
s:=s+(a*a)
end;
writeln(s/b);
end.