Вводятся два числа не равные 0 вывести наибольшее паскаль

Question

Информатика

Граша

2 февраля, 18:00

Вводятся два числа не равные 0 вывести наибольшее паскаль

+1

Ответы (2)

Знаете ответ на вопрос?

Флорида · Answer 1

Если числа целые:

program n;

var

a, b: integer;

begin

readln (a) ;

readln (b) ;

if a>b then

write (a)

else write (b) ;

end.

Если предполагается ввод нецелых чисел, то в объявление переменных (var a, b: integer;) надо поменять integer на real.

Левонтий · Answer 2

Begin

var (a, b) : = ReadInteger;

if a>b then write (a) else write (b) ;

end.