Условные операторы1 Из трех данных чисел выбрать наименьшее и наибольшее. 2 Даны числа x, y. Проверить истинность высказывания: «точка с координатами (x, y) лежит во второй координатной четверти». 3 Дано целое число. Если он...
Условные
операторы
1 Из трех
данных чисел выбрать наименьшее и наибольшее.
2 Даны числа x, y. Проверить истинность
высказывания: «точка с координатами (x, y) лежит во второй
координатной четверти».
3 Дано целое число. Если оно является положительным,
то прибавить к нему 1; в противном случае
не изменять его. Вывести полученное число.
Гость
Ответ(ы) на вопрос:
ГостьVAR
a,b,c,mx,mn: LongInt;
BEGIN
Read(a,b,c);
if (a >= b)and(a >= c) then mx := a;
if (b >= a)and(b >= c) then mx := b;
if (c >= a)and(c >= b) then mx := c;
if (a <= b)and(a <= c) then mn := a;
if (b <= a)and(b <= c) then mn := b;
if (c <= a)and(c <= b) then mn := c;
Writeln('Минимальное число = ', mn);
Writeln('Максимальное число = ', mx);
END.
----------------------------------------------------------------------
VAR
x,y: Real;
BEGIN
Read(x, y);
if (x <= 0)and(y >= 0) then Write('True')
else Write('False');
END.
----------------------------------------------------------------------
VAR
n: LongInt;
BEGIN
Read(n);
if (n > 0) then Inc(n);
Write(n);
END.
Не нашли ответ?
Похожие вопросы