var
a,b:integer;
begin
readln(a,b);
if ((a+b)/2) = round((a+b)/2) then writeln('является');
end.
Похожие записи/страницы:
- Дано трехзначное число. Определить:a) является ли сумма его цифр двузначным числом; б) является ли произведение…
- Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом - Pascal(Паскаль)
- Определить, является ли сумма цифр числа двухзначным числом - Pascal(Паскаль)
- Дано трехзначное число. Определить: a) Является ли сумма его цифр двузначным числом - b) Является ли…
- Дано четное натуральное число. Проверить является ли число квадратом- Pascal(Паскаль)
- Даны два числа x, y целого типа. Вывести True если среднеарифметическое является ли целым числом, в противном…
- Нарисовать белку - Pascal(Паскаль)
- Даны числа n, действительная матрица размером n*9. найти среднее арифметическое: каждого из столбцов - Pascal(Паскаль)