Предмет: Информатика,
автор: VanykaSava
Pascal:среднее арифм. всех целых чисел от 100 до b (b>=100)
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Информатика,
автор: lexa20000009
Предмет: Українська мова,
автор: urakovalcuk148
Предмет: Физика,
автор: nagievaraz31
Предмет: Литература,
автор: nikatlichnica
Предмет: Биология,
автор: sahsamikla