// Запускается под Pascal ABC.NET
// Тест 1:// Ввод: 200
// Вывод: ВЫСОКИЙ
// Тест 2:// Ввод: 170
// Вывод: НЕ ОЧЕНЬ ВЫСОКИЙ
// Тест 3:// Ввод: 105
// Вывод: МАЛЕНЬКИЙ
var
rost: Integer;
begin
Write('Введите свой рост (в см): ');
ReadLn(rost);
if rost > 180 then
WriteLn('ВЫСОКИЙ')
else
if rost > 160 then
WriteLn('НЕ ОЧЕНЬ ВЫСОКИЙ')
WriteLn('МАЛЕНЬКИЙ');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// Запускается под Pascal ABC.NET
// Тест 1:
// Ввод: 200
// Вывод: ВЫСОКИЙ
// Тест 2:
// Ввод: 170
// Вывод: НЕ ОЧЕНЬ ВЫСОКИЙ
// Тест 3:
// Ввод: 105
// Вывод: МАЛЕНЬКИЙ
var
rost: Integer;
begin
Write('Введите свой рост (в см): ');
ReadLn(rost);
if rost > 180 then
WriteLn('ВЫСОКИЙ')
else
if rost > 160 then
WriteLn('НЕ ОЧЕНЬ ВЫСОКИЙ')
else
WriteLn('МАЛЕНЬКИЙ');
end.