ДАЮ МНОГО БАЛЛОВ! ПОМОГИТЕ СРОЧНО! номер 12 а,г и 13
ДАЮ МНОГО БАЛЛОВ! ПОМОГИТЕ СРОЧНО! номер 12 а,г и 13
Гость
Ответ(ы) на вопрос:
Гость№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);end.
Не нашли ответ?
Похожие вопросы