Program z14; Var i, j:integer; sr: real;Begin for i:=100 to 999 do if (i mod 10 = 7) then begin sr:= sr + i; j:= j + 1; end; sr:= sr / j; writeln('Среднее значение = ', sr);End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
