Pascal:среднее арифм. всех целых чисел от 100 до b (bgt;=100)
Pascal:среднее арифм. всех целых чисел от 100 до b (b>=100)
Гость
Ответ(ы) на вопрос:
Гость Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
Не нашли ответ?
Похожие вопросы