Дан рост двух мальчиков. Нужно определить на сколько первый выше второго с помощью программы Pascal.

Question

Информатика

Станислав

8 апреля, 15:00

Дан рост двух мальчиков. Нужно определить на сколько первый выше второго с помощью программы Pascal.

+3

Ответы (1)

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

Ольда · Answer 1

Var h1, h2:integer;

begin

readln (h1) ;

readln (h2) ;

if (h1>h2) then writeln ('Первый выше второго на ', h1-h2) ;

if (h1
if (h1=h2) then writeln ('У обоих мальчиков одинаковый рост') ;

end.