Информатика, опубликовано 2018-08-22 21:08:36 by Гость
Помогите плиииз! Составьте программу для нахождения среднего арифметического всех натуральных нечетных двузначных чисел.Программа выполняется в Паскале!
Ответ оставил Гость
Var
SrAr:real;
s, i, k:integer;
begin
k:=0;
s:=0;
for i:=10 to 99 do
if i mod 20 then
begin
s:=s+i;
k:=k+1;
end;
SrAr:=s/k;
writeln(SrAr:5:5);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на