Дан рост двух мальчиков. Нужно определить на сколько первый выше второго с помощью программы Pascal.
[email protected] в категроии Информатика, вопрос открыт 25.03.2018 в 08:34
1 ответ
Galya Turganbekovna , ответ добавлен 25.03.2018 в 08:42
Var h1, h2:integer;
begin
readln(h1);
readln(h2);
if (h1>h2) then writeln('Первый выше второго на ', h1-h2);
if (h1<h2) then writeln('Первый ниже второго на ', h2-h1);
if (h1=h2) then writeln('У обоих мальчиков одинаковый рост');
end.
0
Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.