Вопрос по информатике:
Условные
операторы
1 Из трех
данных чисел выбрать наименьшее и наибольшее.
2 Даны числа x, y. Проверить истинность
высказывания: «точка с координатами (x, y) лежит во второй
координатной четверти».
3 Дано целое число. Если оно является положительным,
то прибавить к нему 1; в противном случае
не изменять его. Вывести полученное число.
- 12.03.2018 17:10
- Информатика
- remove_red_eye 13113
- thumb_up 7
Ответы и объяснения 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) then Write('True')
else Write('False');
END.
----------------------------------------------------------------------
VAR
n: LongInt;
BEGIN
Read(n);
if (n > 0) then Inc(n);
Write(n);
END.
- 13.03.2018 16:40
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.