З трьох введених чисел знайти те що знаходиться посередині (паскаль)
З трьох введених чисел знайти те що знаходиться посередині (паскаль)
Гость
Ответ(ы) на вопрос:
ГостьProgram Evg97;
uses crt;
var
a,b,c:real;
begin
writeln('+----------------------------------------+');
writeln('| ПОРІВНЯЛКА |');
writeln('+----------------------------------------+');
write('Введіть число a: '); readln(a);
write('Введите число b: '); readln(b);
write('Введіть число c: '); readln(c);
writeln();
writeln('+----------------------------------------+');
writeln('| Результат: |');
writeln('+----------------------------------------+');
if (a=b) or (a=c) or (b=c) then
writeln('| Хмм... Деякі (або всі) числа рівні... |')
else
if (a
Не нашли ответ?
Похожие вопросы