ДАЮ МНОГО БАЛЛОВ! ПОМОГИТЕ СРОЧНО! номер 12 а,г и 13
Answers & Comments
Heromax№12 а) program 1; var i,n,sum:integer; Begin writeln("Enter n"); readln(n) sum:=0; for i:=1 to n do sum:=sum+1; writeln("result=",sum); readln; End.
г) var a,b:integer; begin a:=0; for b:=10 to 99 do a:=a+b; writeln (a); end.
№13
const
n = 10;
var
a, summ, i:integer;
begin
randomize;
summ := 0;
for i := 1 to n do
begin
a := random(20) + 1;
summ := summ + a;
write(a, ' ');
end;
writeln;
writeln('Среднее арифметическое этих чисел ',summ / n);
Answers & Comments
а)
program 1;
var i,n,sum:integer;
Begin
writeln("Enter n");
readln(n)
sum:=0;
for i:=1 to n do
sum:=sum+1;
writeln("result=",sum);
readln;
End.
г)
var a,b:integer;
begin
a:=0;
for b:=10 to 99 do
a:=a+b;
writeln (a);
end.
№13
const
n = 10;
var
a, summ, i:integer;
begin
randomize;
summ := 0;
for i := 1 to n do
begin
a := random(20) + 1;
summ := summ + a;
write(a, ' ');
end;
writeln;
writeln('Среднее арифметическое этих чисел ',summ / n);
end.