С клавиатуры введите три числа a,b,c введите те из них которые делятся на 2.
10-11 класс
|
Написать надо по паскалю
Program Program1;
Var
a,b,c:integer;
begin
writeln('Введите значение a:');
readln(a);
writeln('Введите значение b:');
readln(b);
writeln('Введите значение c:');
readln(c);
writeln('Делятся на 2 без остатка:');
If (a mod 2)=0 then writeln(a);
If (b mod 2)=0 then writeln(b);
If (c mod 2)=0 then writeln(c);
end.
Другие вопросы из категории
Написать программу натурального числа n в квадрате , используя следующую закономерность n в квадрате =1+3+5+7.....+(2n-1)
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
остаток от деления которых на 5 больше двух
Читайте также
вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.