1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д. 2. Даны 3 переменные вещественного типа: А, В, С. Если их значения упорядочены по возрастанию, то удвоить их. В противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных А, В, С. 3. Даны 3 целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

Question

Фёдор Ильин

Информатика

1 августа, 19:56

1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д. 2. Даны 3 переменные вещественного типа: А, В, С. Если их значения упорядочены по возрастанию, то удвоить их. В противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных А, В, С. 3. Даны 3 целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Степан Борисов · Answer 1

1) var a:integer; begin writeln ('Введите число'); readln (a); if (a mod 2=0) then write ('Чётное ') else write ('Нечётное '); if (a div 100>=1) then write ('трёхзначное число') else if (a div 10>=1) then write ('двузначное число') else writeln ('однозначное число'); end. 2) var a, b, c:real; begin writeln ('Введите 1 число'); readln (a); writeln ('Введите 2 число'); readln (b); writeln ('Введите 3 число'); readln (c); if (a