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

Question

Информатика

Ульянка

17 марта, 00:31

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

+1

Ответы (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.