Составьте программы на языке программирования Pascal. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

Вычислить значение функции у=5х, если х>0 , и у=х-2,5, если х <=0.

Ввести рост человека. Вывести на экран “ВЫСОКИЙ”, если его рост превышает 180 см, и “НЕ ОЧЕНЬ ВЫСОКИЙ” в противном случае.

Предыдущий
вопрос Следующий
вопрос

Программа 1:

program TwoNumbers;
var
num1, num2, sum: integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);
sum := num1 + num2;
if sum > 100 then
sum := sum div 2
else
sum := sum * 2;
writeln('Результат:', sum);
end.

Программа 2:

program FunctionValue;
var
x, y: real;
begin
writeln('Введите значение x:');
readln(x);
if x > 0 then
y := 5 * x
else
y := x - 2.5;
writeln('Значение функции y = ', y);
end.

Программа 3:

program CheckHeight;
var
height: integer;
begin
writeln('Введите рост человека в см:');
readln(height);
if height > 180 then
writeln('ВЫСОКИЙ')
else
writeln('НЕ ОЧЕНЬ ВЫСОКИЙ');
end.