1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строчку-описание вида "четное двузначное

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

Задать свой вопрос
1 ответ
1)var a:integer; begin writeln(Введите число); readln(a); if (a mod 2=0) then write(Чётное ) else write(Нечётное ); if (a div 100gt;=1)then write(трёхзначное число) else if (a div 10gt;=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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт