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

Question

Информатика

Рона

2 июля, 15:31

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

+2

Ответы (2)

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

Виктория · Answer 1

Begin

var (a, b) : = ReadInteger;

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

end.

Ритоха · Answer 2

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

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.