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