Вывести только четные числа паскаль

Как вывести четные и нечетные числа от 1 до 100 в Pascal ABC

Если Вам вдруг понадобились четные либо нечетные числа, а писать их вручную не хочется, то можно воспользоваться старым добрым паскалем АБС. В этой статье я покажу простой способ, как написать программу, которая сможет вывести четные либо нечетные числа до 100, либо до любого другого числа.

Инструкция

Что вам понадобится:

• Pascal ABC
• Небольшие навыки программирования

1 шаг

Откройте Pascal ABC и напишите стандартное оформление. Вот структура обычной программы в Pascal ABC :
var a,b:integer; (раздел переменных)
begin (начало программы)
(тело программы)
end. (конец программы)

2 шаг

Далее в теле программы нам нужно написать: «a:=1;» и команду «for». В команде «for» после «do» идет подпрограмма. Оформляется она так же, как и сама программа, только после «end» ставится не точка, а точка с запятой.
Нам нужно, чтобы подпрограмма сработала определенное количество раз. Если нам нужно, чтобы подпрограмма выполнилась 100 раз, то задаем в команде «for» вот это: for b:=1 to 100 do.
Теперь напишем подпрограмму. Пишем следующее:
a:=a+2;
write(‘,’,a);

3 шаг

В итоге у нас получилась вот такая программа:
var a,b:integer;
begin
a:=-1;
for b:=1 to 100 do
begin
a:=a+2;
write(‘,’,a);
end;
end.
А теперь немного объясню, как она работает. Сначала мы присваиваем переменной а число -1. Далее оператор «for» выполняет подпрограмму, которая в свою очередь прибавляем к переменной число 2 и выводит полученное число на экран вместе с запятой. Получается вот так: «-1+2=1» и программа выведет на экран следующее: «1,». Теперь переменная а равна 1. Теперь подпрограмма сработает еще раз: 1+2=3 и программа выведет «3,». И так 100 раз. В итоге с каждым рабом на экране будет все больше нечетных чисел и в конце программы мы получим набор нечетных чисел через запятую.

4 шаг

Чтобы получить четные числа, вместо нечётных, нужно поменять значение переменной а в начале программы на 0.

Источник

Посчитать четные и нечетные цифры числа

Посчитать четные и нечетные цифры введенного натурального числа. Например, если введено число 34560, то у него 3 четные цифры (4, 6 и 0) и 2 нечетные (3 и 5).

1. Присвоить переменным-счетчикам четных ( even ) и нечетных ( odd ) цифр значение 0.
2. Пока введенное число не уменьшится до нуля выполнять нижеследующие действия:
   1. Если число четное (делится нацело на 2), значит последняя его цифра четная и надо увеличить на 1 переменную even .
   2. Иначе число нечетное и следует добавить 1 к переменной odd .
   3. Убрать последнюю цифру числа путем деления числа нацело на 10.

Pascal

посчитать четные и нечетные цифры числа паскаль

Язык Си

Python

посчитать четные и нечетные цифры числа python(питон)

КуМир

Basic-256

посчитать четные и нечетные цифры числа паскаль

var n: word;
even, odd: byte;
begin
readln(n);
even := 0;
odd := 0;
while n > 0 do begin
if n mod 2 = 0 then
even := even + 1
else
odd := odd + 1;
n := n div 10;
end;
writeln(‘четных ‘, even);
writeln(‘нечетных ‘, odd);
end.

56709
четных 2
нечетных 3

main() <
int n,even,odd;
scanf(«%d»,&n);
even = 0; // четные
odd = 0; // нечет.
while (n>0) <
if (n%2 == 0) even += 1;
else odd += 1;
n = n/10;
>
printf(«четных — %d, нечетных — %d\n», even, odd);
>

100238
четных — 4, нечетных — 2

посчитать четные и нечетные цифры числа python(питон)

n = int(input())
even=odd=0
while n>0:
if n%2 == 0:
even += 1
else:
odd += 1
n = n//10
print(«четных — %d, нечетных — %d» % (even, odd))

12098
четных — 3, нечетных — 2

алг чет_нечет
нач
цел n, even, odd
ввод n
even := 0
odd := 0
нц пока n > 0
если mod(n,2) = 0 то even := even + 1
иначе odd := odd + 1
все
n := div(n,10)
кц
вывод «Четных: «, even, нс
вывод «Нечетных: «, odd
кон

308591
Четных: 2
Нечетных: 4

input n
even=0
odd=0
while n>0
if n%2 = 0 then
even = even + 1
else
odd = odd + 1
endif
n = n\10
endwhile
print «Четных » + even
print «Нечетных » + odd

734721
Четных 2
Нечетных 4

Источник

Вывести нечетное число

Задача

Из двух чисел с разной четностью вывести на экран нечетное число.

Решение

a, b — данные числа

Алгоритм решения задачи:

Пользователь вводит четное и нечетное число. Последовательность их ввода может быть любой. Таким образом, неизвестно какая из двух переменных (a или b) содержит нечетное число. Чтобы выяснить это, используется конструкция условного ветвления (if-else), а также операция нахождения остатка от целочисленного деления (mod).

Если результат нахождения остатка от деления значения переменной a на 2 равен нулю, значит, эта переменная содержит четное число. Тогда нечетное число находится в переменной b и его следует вывести на экран. Если же результат нахождения остатка не равен нулю, значит, a содержит нечетное число. Оно выводится в ветке else.

Программа на языке Паскаль:

Примеры работы программы:

В данном случае предполагается, что пользователь осуществляет ввод правильно, т. е. всегда вводит одно четное и одно нечетное число. Если же ввод был некорректный (два четных или два нечетных числа), то программа будет работать неправильно. В случае двух четных чисел программа выведет второе. В случае двух нечетных — первое введенное. Чтобы избежать подобных недоразумений, программу можно усовершенствовать следующим образом:

В данном случае в заголовках условного оператора проверяются оба числа: одно — на четность, другое — на нечетность. Если оба будут четные, или оба будут нечетные, то сработает тело вложенного оператора else.

Источник