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

Ответы (1)

Альмира 21.09.2024 5

Задача 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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: