Задать вопрос
25 июля, 10:51

Выдает ошибку Операция > не может быть применена к типам boolean и integer

Program qq;

var a, b, c, max, min, med : integer;

begin

writeln ('введите три числа') ;

read (a, b, c) ;

if c>b>a

then begin

max : = c;

med : = b;

min : = a;

End;

if b>a>c

then begin

max : = b;

med : = a;

min : = c;

End;

if a>c>b

then begin

max : = a;

med : = c;

min : = b;

End;

writeln ('наибольшее число', max) ;

writeln ('среднее число', med) ;

writeln ('наименьшее число', min) ;

End.

+5
Ответы (1)
  1. 25 июля, 13:41
    0
    Ну так правильно пишет, нельзя писать if b>a>c

    then begin, пишется правильно так if (c>b) and (b>a) then begin, вообщем вот держи;

    Program qq; var a, b, c, max, min, med : longint; beginwriteln ('введите три числа') ; read (a, b, c) ; if (c>b) and (b>a) then beginmax : = c; med : = b; min : = a; End; if (b>a) and (a>c) then beginmax : = b; med : = a; min : = c; End; if (a>c) and (c>b) then beginmax : = a; med : = c; min : = b; End; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Выдает ошибку Операция > не может быть применена к типам boolean и integer Program qq; var a, b, c, max, min, med : integer; begin writeln ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Program a2; var n, i, min, max, x:integer; begin Writeln ('Введите колицество человек в классе:') ; Readln (n) ; Writeln ('Введите рост 1 ученика:') ; readln (x) ; min:=x; max:=x; for i:=2 to n do begin Writeln ('Введите рост ', i,' ученика:') ;
Ответы (1)
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
Program n_66; var x, max:real; i: integer; begin writeln ('Введите число') ; readln (max) ; for i:=1 to 9 do begin writeln (x) ; if x>max then max:=x end writeln ('максимум - ', max') ; end. Встречено 'writeln' а ожидалось '; '
Ответы (1)
Исправить ошибки в паскале program massiv2; type mas=array [1 ... 100] of integer; var a: = Max; i, n, min, max, b : integer; недопустимый символ: = (д/б просто :; неизвесмтное имя типа max) begin writeln ('n=') ; readln (n) ;
Ответы (2)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)