Программа паскаль определение четных чисел

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

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

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

Для начала продумаем наше решение. Ну само собой сначала попросим пользователя ввести число, а затем в цикле, сначала возьмем последнюю цифру числа, проверим её на четность, и в зависимости четная она или нет увеличим кол-во четных или нечетных.

Ну а дальше оторвем последнюю цифру у числа и будем так делать пока число не станет равно 0.

Для того чтобы найти количество четных и нечетных цифр в числе нам понадобятся следующие переменные :

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

uses crt; var number, countOdd , countEven, figure : integer ; begin write ( ‘Введите число : ‘ ); readln(number); end .

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

Паскаль с нуля [ч10]. Вывод массива, задача с четными числами

Там нечего трудного нет, и так пишем цикл :

while (number > 0 ) do begin figure := number mod 10 ; if (figure mod 2 = 0 ) then countEven := countEven + 1 else countOdd := countOdd + 1 ; number := number div 10 ; end ;

Сначала отделили последнюю цифру, занесли её в переменную , потом проверяем четная она или нет, если да то увеличиваем количество четных элементов иначе нечетных и затем убираем последнюю цифру числа.

И нам осталось только вывести кол-во четных и нечетных элементов :

writeln ( ‘Кол-во четных элементов : ‘ , countEven); writeln ( ‘Кол-во нечетных элементов : ‘ , countOdd);

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

uses crt; var number, countOdd , countEven, figure : integer ; // объявили переменные begin clrscr; // очищаем экран write ( ‘Введите число : ‘ ); readln(number); // вводим число while (number > 0 ) do // пускаем цикл пока число не станет равным 0 begin figure := number mod 10 ; // заносим в figure последнюю цифру числа if (figure mod 2 = 0 ) then countEven := countEven + 1 // если цифра четныя то увеличиваем кол-во четных else countOdd := countOdd + 1 ; // иначе кол-во нечетных number := number div 10 ; // убираем последнюю цифру числа end ; writeln ( ‘Кол-во четных элементов : ‘ , countEven); // выводим writeln ( ‘Кол-во нечетных элементов : ‘ , countOdd); // результат readln; // чтобы программа не закрывалась end .

for if else чётные и нечётные числа Остаток от деления

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

Программирование Задачи по Pascal. Вывести на экран порядковые номера и элементы удовлетворяющие условию

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

Программа паскаль определение четных чисел

Нахождение четных элементов массива

Итак формулировка задачи такова «найти все четные элементы массива, вывести на экран, и подсчитать их количество».
Для начала определим, что такое четное число вообще? правильно, четными числами называются числа, которые делятся на 2 без остатка (иногда еще говорят кратны 2).

Теперь определимся как это реализовать. В паскале есть такой замечательный оператор mod, который нам как раз и необходим. Сей оператор отвечает за деление с остатком, а если быть точнее, применив данный оператор, вы получаете остаток от деления. Например 11 разделить на 2. Использовав mod мы получим в ответе число 1.

Теперь как это все записать в паскале. Пусть переменная х — это остаток

Вернемся к нашей задаче, где нас интересует нахождение четных элементов массива. Для ее решения нужно подойти к составлению кода логически .
Каков остаток при делении четного числа на 2? Верно, остаток всегда равен нулю. (Подробнее о четности вы можете прочесть в статье оператор div и оператор mod) То есть нам просто нужно использовать цикл с условием вида

Ну а теперь код всей задачи (как в помните нам еще было необходимо подсчитать количество четных чисел и вывести их всех на экран)

var i,x,y:integer;s:array [1..10] of integer;
begin
for i:=1 to 10 do
read(s[i]);
for i:=1 to 10 do
if s[i] mod 2=0 then begin
writeln (s[i]);
y:=y+1;
end;
writeln;
writeln(‘количество четных чисел = ‘,y)
end.

Источник: programmado.ru

Программа паскаль определение четных чисел

Вопрос по информатике:

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

Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!

• bookmark_border

• 24.11.2015 17:44
• Информатика
• remove_red_eye 11359
• thumb_up 22

Ответы и объяснения 1

Var
a : integer;
begin
readln (a);
if a mod 2 = 0 then
writeln (‘число является чётным’);
else
writeln (‘число не является чётным’);
end.

• 25.11.2015 09:21
• thumb_up 2

Знаете ответ? Поделитесь им!

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

• Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
• Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
• Писать без грамматических, орфографических и пунктуационных ошибок.

Этого делать не стоит:

• Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
• Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
• Использовать мат — это неуважительно по отношению к пользователям;
• Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

Источник: online-otvet.ru