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

+3
Ответы (1)
  1. 1 августа, 20:04
    0
    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
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Напиши обратные действия. Снять - Открыть - Прилететь -
Ответы (1)
Перевести число 2-чной системы счисления в 10-чную: 1110000/2, 10001101/2
Ответы (1)
Какими знаками можно обозначить на письме звонкий и глухой удары в барабан?
Ответы (1)
1) В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт. Ввести № вагона. напечатать вид. 2) Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
Ответы (1)
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? программа паскаль
Ответы (1)
Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10
Ответы (1)
С клавиатуры вводят строку, состоящую из латинских букв и цифр. Написать программу, которая вычисляет сумму цифр, попадающихся в этой строке, а также выводящую строку после исключения из неё этих цифр. Для паскаль abc.
Ответы (1)
Дан одномерный целочисленный массив В состоящий из 16 элементов найти максимальный элемент массива и его порядковый номер.
Ответы (1)
Написать программу вычисления стоимости покупки с учётом скидки: скидка в 10% предоставляется, если сумма покупки >1000 руб.
Ответы (1)
Что такое программа setup
Ответы (1)