Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

Ввести два числа, если они оба четные, найти наибольшее из них. Pascal

10-11 класс

Angelina161203 10 апр. 2013 г., 22:53:42 (11 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
А25ямогу
11 апр. 2013 г., 1:30:50 (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.

Ответить

Другие вопросы из категории

Помогите 1плиз

составить по правилам программирования выражение:

Язык программирования: Visual Basic

Задача: Даны названия 20-ти стран и частей света, в которых они находятся. Определите, есть ли среди них страны, находящиеся в Африке или в Азии. В случае положительного ответа напечатать их названия

Читайте также

№1.Составьте программу,выбирающую из всех вводимых в ЭВМ чисел только те, которые входят в интервал от 1 до 5.Ввод производится до тех пор пока сумма

всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.

3) Даны 4 числа, они записаны с использованием различных систем счисления. Укажите среди этих чисел то, в двоичной записи которого содержится ровно 5

единиц. Если таких чисел несколько, укажите наибольшее из них.
1) 3110 * 810 + 110 2) F016 + 110 3) 3518 4) 111000112

1)Ввести целое число и найти произведение его четных цифр. Пример: Введите целое число: 1234. Произведение четных цифр числа 1234 равно

6.

2)Ввести целое число и определить количество черных и нечетных цифр.

Пример:

Введите целое число :12547

количество нечетных цифр:3

количество четных цифр:2

ПОМОГИТЕ ПОЖАЛУЙСТА!!!! Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа больше 100, то замените

каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.



Вы находитесь на странице вопроса "Ввести два числа, если они оба четные, найти наибольшее из них. Pascal", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.