Информатика, опубликовано 2018-08-22 17:46:30 by Гость
Помогите решить задачу по информатике пожалуйста, через паскаль найти среднее арифметическое всех двузначных чисел, кратных двум
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.