Mojurus 25 ноября 2019 в 10:26
Ребята, помогите пожалуйста с информатикой! Задача: СОСТАВЬТЕ ПРОГРАММУ ДЛЯ НАХОЖДЕНИЯ СРЕДНЕГО АРИФМЕТИЧЕСКОГО НЕЧЕТНЫХ ДВУЗНАЧНЫХ ЧИСЕЛ В КУМИРЕ. Вы моя последняя надежда.
Ребята, помогите пожалуйста с информатикой! Задача: СОСТАВЬТЕ ПРОГРАММУ ДЛЯ НАХОЖДЕНИЯ СРЕДНЕГО АРИФМЕТИЧЕСКОГО НЕЧЕТНЫХ ДВУЗНАЧНЫХ ЧИСЕЛ В КУМИРЕ. Вы моя последняя надежда.
Var
SrAr:real;
s, i, k:integer;
begin
k:=0;
s:=0;
for i:=10 to 99 do
if i mod 2lt;gt;0 then
begin
s:=s+i;
k:=k+1;
end;
SrAr:=s/k;
writeln(SrAr:5:5);
end.
SrAr:real;
s, i, k:integer;
begin
k:=0;
s:=0;
for i:=10 to 99 do
if i mod 2lt;gt;0 then
begin
s:=s+i;
k:=k+1;
end;
SrAr:=s/k;
writeln(SrAr:5:5);
end.
Компьютеры и вычисления
152
0
Для комментирования необходимо зарегистрироваться на сайте