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

Question

Информатика

Эннафа

14 ноября, 19:38

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

+1

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