Информатика Паскаль.
Вводятся два целых числа. Выведите разность между средним геометрическим двух чисел и меньшим числом.
romapotseluiko
2
08.03.2021 19:55
6
Другие вопросы по теме Информатика
Дубак113
19.05.2020 08:04
dimoncool67
19.05.2020 08:04
Mashshka
01.04.2019 18:20
davidpolshin
01.04.2019 18:20
musinasim
04.06.2019 05:30
Крипер1111111
19.03.2021 16:52
mrpetrov289
19.03.2021 16:51
alena3211
04.09.2019 12:40
Жебир
24.01.2022 02:41
Популярные вопросы
- выпишите метафоры,эпитеты из стихотворения арион...
1 - Какой металл встречается в земной коре в чистом виде ответы...
3 - Генератор з ерс в і внутрішнім опором 1,8 ом живить кілька паралельно...
3 - 1.после начала старта автомобиль проехал 90 метров за 2 секунды....
3 - В270 году до нашей эры греческий астроном аристарх по продолжительности...
1 - Какое число надо вычесть из наибольшего двузначного числа, чтобы...
3 - Запишите 3 числа которые больше 1/4 но меньше 1/3...
3 - Подсчитать количество твёрдых и мягких знаков, а также подсчитать...
2 - Put the words in order to make sentences and questions. 1) their/...
2 - Некоторая масса газа находится в определённой емкости при нормальных...
1
var a,b:integer;
var sr,otvet:real;
begin
writeln('Введите 2 целых числа:');
readln(a,b);
sr:= (a+b)/2;
if a>b then
begin
otvet:= sr-b;
writeln(otvet);
end
else
begin
otvet:= sr-a;
writeln(otvet);
end
end.