Ввести два числа, если они оба четные, найти наибольшее из них. Pascal
10-11 класс
|
var a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);if (a mod 2=0) and (b mod 2 =0) then
if a>b then write(a) else write (b)
end.
Другие вопросы из категории
Задача: Даны названия 20-ти стран и частей света, в которых они находятся. Определите, есть ли среди них страны, находящиеся в Африке или в Азии. В случае положительного ответа напечатать их названия
Читайте также
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.
единиц. Если таких чисел несколько, укажите наибольшее из них.
1) 3110 * 810 + 110 2) F016 + 110 3) 3518 4) 111000112
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.