Написать программу которая определяет является ли число четным

Условие задачи: Написать программу, которая печатает TRUE или FALSE в зависимости от того, выполняются или нет указанные условия. Определить, являются ли все цифры пятизначного числа четными.
(Язык Pascal)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Тут всё супер просто, разобьём число на пять цифр и проверим все ли они четные.

Для того чтобы решить задачу нам понадобятся следующие переменные:

Начнем мы с каркаса нашей программы

var number, n1, n2, n3, n4, n5 : integer ; // объявляем res : boolean ; // переменные begin write ( ‘Введите пятизначное число : ‘ );readln(number); // просим пользователя ввести число readln; // чтобы программа не закрывалась end .

Тут мы объявили все переменные и попросили пользователя ввести число. Дальше нам надо разбить число на цифры делать это мы будем с помощью операций mod и div.

4.1 Четное или нечетное. «Поколение Python»: курс для начинающих. Курс Stepik

Если вы не понимаете как они работают ОБЯЗАТЕЛЬНО читайте про них (тут).

// допустим есть число 13578 n1 := number div 10000 ; // будет цифра 1 n2 := number div 1000 mod 10 ; // будет цифра 3 n3 := number div 100 mod 10 ; // будет цифра 5 n4 := number div 10 mod 10 ; // будет цифра 7 n5 := number mod 10 ; // будет цифра 8

Ну а теперь надо проверить все ли цифры у нас четные, чтобы определить четное число или нет нужно воспользоваться операцией mod, которая ищет остаток от деления, подробнее можете прочитать (тут)

res := ((n1 mod 2 = 0 ) and (n2 mod 2 = 0 ) and (n3 mod 2 = 0 ) and (n4 mod 2 = 0 ) and (n5 mod 2 = 0 )); // проверяем все ли цифры четные

Т.е. у нас будет ответ True, если все цифры четные.

Всё решение задачи Pascal

var number, n1, n2, n3, n4, n5 : integer ; // объявляем res : boolean ; // переменные begin write ( ‘Введите пятизначное число : ‘ );readln(number); // просим пользователя ввести число // допустим есть число 13578 n1 := number div 10000 ; // будет цифра 1 n2 := number div 1000 mod 10 ; // будет цифра 3 n3 := number div 100 mod 10 ; // будет цифра 5 n4 := number div 10 mod 10 ; // будет цифра 7 n5 := number mod 10 ; // будет цифра 8 res := ((n1 mod 2 = 0 ) and (n2 mod 2 = 0 ) and (n3 mod 2 = 0 ) and (n4 mod 2 = 0 ) and (n5 mod 2 = 0 )); // проверяем все ли цифры четные writeln (res); // выводим результат readln; // чтобы программа не закрывалась end .

Python. Проверка на четность/нечетность

Предыдущая
Программирование Задачи по Pascal. Найти наименьший нечетный элемент массива.

Программирование Задачи по Pascal. Определить, делится ли сумма цифр пятизначного числа на его первую цифру

Источник: sprint-olympic.ru

ПАСКАЛЬ!

1)написать программу ,которая проверяет,является ли число четным или нечетным
2)Написать программу,которая проверяет,делится ли на 3 целое число введенное с клавиатуры
3)написать программу,которая определяет ,является билет «счастливым» или нет,билета 6-ти значное число .Билет является счастливым,если если сумма первых двух чисел равна сумме трех последних цифр
5)написать программу,которая проверяет ,делится ли на шесть целое число,введенное с клавиатуры
6)написать программу ,определяющую делится ли число b на число a нацело.
7)дано целое 4-х значное число . Поменять местами цифры,стоящие в этом числе в разные места,вывести на экран исходное и измененное число

Ответы

Автор ответа: shayger

1)))))))))
program z;
var
i : integer;
begin
Writeln(‘Введите число’); Readln(i);
if i mod 2 = 0
then
Writeln(‘Число чётное’)
else
Writeln(‘Число не чётное’);
readln;
end.

2))))))))))))
program z;
var
i : integer;
begin
Writeln(‘Введите число’); Readln(i);
if i mod 3 = 0
then
Writeln(‘Число делится на 3’)
else
Writeln(‘Число не делится на 3’);
readln;
end.

3))))))
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do

begin
Writeln(‘Введите ‘, x,’ цифру из 6 ‘);
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln(‘Билет счастливый’)
else
Writeln(‘Билет не счастливый’);
Readln;
end.

5)))
program z;
var
i : integer;
begin
Writeln(‘Введите число’); Readln(i);
if i mod 6 = 0
then
Writeln(‘Число делится на 6’)
else
Writeln(‘Число не делится на 6’);
readln;
end.
6)))))
program z;
var
a,b:integer;
begin
Writeln(‘Введите число A’); Readln(a);
Writeln(‘Введите число B’); Readln(b);
if b mod a = 0
then Writeln(‘Число А делится нацело на число В’)
else Writeln(‘Число А не делится нацело на число B’);
Readln;
end.

Источник: sous-otvet.net

Уроки информатики в сети

3. Определи для себя следующий уровень и выполни задание В или С. Если не получается сделать задание В или С, составь программу, которая представлена на картинке поста.

4. Отладьте выбранную программу в on — line редакторе https://replit.com/languages/python3

5. Запиши программу в тетрадь

Уровень A. Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке.

Введите три числа:

Все числа одинаковые.

Введите три числа:

Два числа одинаковые.

Введите три числа:

Нет одинаковых чисел.

Вставьте свои комментарии

Отладьте программу в on — line редакторе https://replit.com/languages/python3

Напишите программу в тетради

print (‘Все числа одинаковые’)

elif a==b or b==c or c==a:

Уровень B. Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке.

Введите номер месяца:

Введите номер месяца:

Неверный номер месяца.

Уровень C. Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет».

Источник: neturokinf.blogspot.com