Помогите решить задачу по информатике пожалуйста, через паскаль найти среднее арифметическое всех двузначных чисел, кратных двум
Помогите решить задачу по информатике пожалуйста, через паскаль
найти среднее арифметическое всех двузначных чисел, кратных двум
Гость
Ответ(ы) на вопрос:
Гостьprogram Project1;var i, sum , colchet : integer; srarif : real;
begin sum := 0; colchet:= 0; for i:=10 to 99 do if(i mod 2 = 0) then begin sum := sum + i; colchet := colchet + 1; end; srarif := sum / colchet;writeln(srarif:0:3);end.
Не нашли ответ?
Похожие вопросы