Дано два целых числа. Написать программу, определяющую среднюю арифметическую этих чисел. Результат напечатать с двумя числами после запятой.
Ответы
Ответ дал:
0
begin
Var k,l,m : integer;
var v: double;
writeln('Введите два цисла');
ReadLn(k);
ReadLn(l);
v:=(k+l)/2;
writeln('Среднее арифметическое ',v);
end.
Var k,l,m : integer;
var v: double;
writeln('Введите два цисла');
ReadLn(k);
ReadLn(l);
v:=(k+l)/2;
writeln('Среднее арифметическое ',v);
end.
Ответ дал:
0
Зачем тут цикл?
Ответ дал:
0
согласен, не заметил, хотел изначально сделать цикл для ввод исходных данных
Ответ дал:
0
Не сумма, а среднее арифметическое)
Ответ дал:
0
var a, b: real;
begin
read(a, b);
write((a + b) / 2 : 0 : 2)
end.
begin
read(a, b);
write((a + b) / 2 : 0 : 2)
end.
Вас заинтересует
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад