Program n_12;
var a;
begin
write ('введите число');
if (a); a= положит., отрицат., или равное 0
end.
F1 Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
If2 Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
If3 Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.If4°Даны три целых числа. Найти количество положительных чисел в исходном наборе.
If5 Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
If6° Даны два числа. Вывести большее из них.
If7 Даны два числа. Вывести порядковый номер меньшего из них.
If8° Даны два числа. Вывести вначале большее, а затем меньшее из них.
If9 Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
If10 Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If11 Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If12° Даны три числа. Найти наименьшее из них.
If13 Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).Небольшое пояснение
If14 Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.If15 Даны три числа. Найти сумму двух наибольших из них
Сначала элементы массива сохранят последовательность 0, 1, 2, 3, 4, 5.
Затем произойдет перезапись значений по принципу: последний равен первому, предпоследний - второму и т.д. В результате получим последовательность 0, 1, 2, 2, 1, 0
Символы, набранные с использованием кодировки Unicode, кодируются 16 битами каждый. Таким образом, указанный текст будет весить 224 бита или 0,028 килобайт.
1111101(2), или можно в десетичную перевести обу цифр и потом сложить и дальше перевести на двоичную, 1111000=120, 101=5, 120+5=125, 125=1111101.