Pascal: среднее арифм. всех целых чисел от 100 до - вопрос №1001005322592 от kadieva1976 15.09.2021 06:21

Question

Информатика: Pascal: среднее арифм. всех целых чисел от 100 до b (b =100)

kadieva1976 · Answer

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....

Pascal: среднее арифм. всех целых чисел от 100 до b (b> =100)