Задача 1) Даны два числа а и b. Написать программу, которая находит меньшее из них и выводит на экран соответствующий результат. Задача 2) Дано целое число. Написать программу, которая заменяет его на 0, если число отрицательное, и выводит его без изменений, противном случае. Задача 3) Дано целое число n. Написать программу увеличивающую его на 10, если число больше 0.

Question

Информатика

Дросида

15 апреля, 19:26

Задача 1) Даны два числа а и b. Написать программу, которая находит меньшее из них и выводит на экран соответствующий результат. Задача 2) Дано целое число. Написать программу, которая заменяет его на 0, если число отрицательное, и выводит его без изменений, противном случае. Задача 3) Дано целое число n. Написать программу увеличивающую его на 10, если число больше 0.

+5

Ответы (1)

Знаешь ответ?

Лукич · Answer 1

Задача 1

var

a, b:Integer;

Begin

Read (a, b);

if (a>b) then Writeln (b)

else if (a
else Writeln ('Числа равны');

end.

Задача 2

var

n:Integer;

Begin

Read (n);

if (n<0) then Writeln (0)

else Writeln (n);

end.

3 адача 3.

var

n:Integer;

Begin

Read (n);

if (n>0) then Writeln (n+10)

else Writeln (n);

end.