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

Question

Информатика

Рона

9 июня, 13:21

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

+4

Ответы (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.