Помогите, прошу

Если можно, сразу вид, как в паскале

Билет по икт

Составить программу, определяющую большее из двух чисел. Проверить работу программы для всевозможных комбинаций

Question

Информатика

Лукерья

31 августа, 23:37

Помогите, прошу

Если можно, сразу вид, как в паскале

Билет по икт

Составить программу, определяющую большее из двух чисел. Проверить работу программы для всевозможных комбинаций

+3

Ответы (1)

Знаете ответ?

Ленуся · Answer 1

program proga;

uses crt;

var

x, y:integer;

begin

clrscr;

Writeln ('Введите поочередно два числа') ;

readln (x) ;

readln (y) ;

if x>y then

Writeln (' x>y ')

else

if y>x then

Writeln (' y>x ')

else

Writeln (' y=x ') ;

writeln;

end.