Дано три числа. Знайти середнє з них (тобто число, розташоване між найменшим і найбільшим).
Задачу виконати в мові програмування Lazarus.
Ответы
Ответ дал:
1
Ответ:
program find_middle;
var
a, b, c: integer;
middle: integer;
begin
writeln('Введіть три числа:');
readln(a);
readln(b);
readln(c);
if (a <= b) and (b <= c) then
middle := b
else if (b <= a) and (a <= c) then
middle := a
else if (c <= a) and (a <= b) then
middle := a
else if (a <= c) and (c <= b) then
middle := c
else if (b <= c) and (c <= a) then
middle := c
else
middle := b;
writeln('Середнє число:', middle);
end.
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад