Var a, b, c, d:integer; p: integer; begin writeln('Введите первое число:'); readln(a); writeln('Введите второе число:'); readln(b); writeln('Введите третье число:'); readln(c); writeln('Введите четвёртое число:'); readln(d); if a>b then writeln('1 число больше 2'); if a<b then writeln('1 меньше 2'); if b>c then writeln('2 число больше 3'); if b<c then writeln('2 меньше 3'); if c>d then writeln('3 число больше 4'); if c<d then writeln('3 меньше 4'); if c>d then writeln('4 число больше 1'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
