Информатика Напишите программу в Паскаль ABC 1. Вводится число с клавиатуры. Если оно больше 0 то выводим на экран "Положительное число", иначе "Отрицательное число"
2. Вводим с клавиатуры 2 числа. На экран вывести минимальное из этих чисел
3. Вводится число с клавиатуры. Если оно больше 50 Вывести слово "привет" иначе "hi"
4. Генерируется число от -50 до 50. Если оно больше 0 то выводим на экран "Положительное число", иначе "Отрицательное число"
5. Генерируются 2 числа от 10 до 99. На экран вывести минимальное из этих чисел

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

1)

var a:real;

begin

 write('Введите число: ');

 read(a);

 if(a > 0) then writeln('Положительное') else if (a < 0) then writeln('Отрицательное') else writeln('Ноль');

end.

2)

var a,b:real;

begin

 write('Введите число 1: ');

 read(a);

 write('Введите число 2: ');

 read(b);

 if(a > b) then writeln('Большее число А: ',a) else if (a < b) then writeln('Большее число B: ',b) else writeln('Числа равны');

end.

3)

var a:real;

begin

 write('Введите число : ');

 read(a);

 if(a > 50) then writeln('Привет') else writeln('Hi');

end.

4)

var a:real;

begin

 a := random(50-(-50)+1)+(-50);

 writeln('Рандомное число: ',a);

 if(a > 0) then writeln('Положительное') else writeln('Отрицательное');

end.

5)

var a,b:real;

begin

 a := random(99-10+1)+10;

 writeln('Рандомное число A: ',a);

 b := random(99-10+1)+10;

 writeln('Рандомное число B: ',b);

 if(a > b) then writeln(b) else writeln(a);

end.