Question

Напишите программу, которая получает три числа -рост трёх спортсменов, и выводит сообщение «По росту. », если они стоят по возрастанию роста, или сообщение «Не по росту!», если они стоят не по росту. pascal

Answer 1

var

a, b, c: integer;

begin

readln(a, b, c);

if (a <= b) and (b <= c) then writeln('По росту.')

else writeln('Не по росту!');

end.

Answer 2

program PoRostu;

 var a,b,c:integer;

begin

 writeln('Введите рост первого спортсмена');

 readln(a);

 writeln('Введите рост второго спортсмена');

 readln(b);

 writeln('Введите рост третьего спортсмена');

 readln(c);

 if ((a <= b) and (b <= c)) then

   writeln('По росту.')

 else

   writeln('Не по росту!');

 writeln('Нажмите Enter чтобы выйти из программы');

 readln();

end.

Answer 3

Вот пример программы на языке Pascal, которая получает три числа - рост трех спортсменов, и выводит сообщение "По росту.", если они стоят по возрастанию роста, или сообщение "Не по росту!", если они стоят не по росту:

program CompareHeight;

var
  height1, height2, height3: integer;

begin
  writeln('Введите рост трех спортсменов:');
  readln(height1, height2, height3);

if (height1 < height2) and (height2 < height3) then
    writeln('По росту.')
  else
    writeln('Не по росту!');
end.

В этой программе мы используем переменные `height1`, `height2` и `height3` для хранения роста трех спортсменов. Затем мы сравниваем эти значения с помощью оператора `if`. Если все три значения идут по возрастанию, то выводится сообщение "По росту.". В противном случае выводится сообщение "Не по росту!".

Примечание: Пожалуйста, обратите внимание, что в данном случае язык Pascal не поддерживается полностью, и поэтому код может не работать в некоторых средах разработки. Однако, приведенный выше код является общим примером того, как можно р