Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 2
Регистрация: 14.11.2012
Сообщений: 12
1

В диапазоне от a до b вывести все числа, в середине которых есть четная цифра

14.11.2012, 16:53. Показов 1413. Ответов 1
Метки нет (Все метки)

В диапазоне от a до b вывести все числа,в середине которых четная цифра.
Если в числе четное количество цифр(2,4,6 и тд) то можно проверять любую(пр: 1234- проверяем либо 2,либо 3,но соответственно написание задачи слегка поменяется).
Я написал программу,но с конкретным числом,тоесть ввожу число и программа проверяет четная в середине цифра или нет,если четная то выводит ее,а вот как сделать так чтоб она выводил все числа в диапазоне,не знаю...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var p,k,b,a,ch,e,i,z,s:integer;
begin
k:=0;
writeln;
write('введите число=');
readln(a);
b:=a mod 10; //b-конечная цифра
 
ch:=a;
while ch<>0 do
begin
ch:=ch div 10;
k:=k+1; //k-количество цифр в числе
end;
 
if (k mod 2=0) then
p:=k div 2            //p-порядок середины
else p:=(k div 2)+1;
 
e:=1;
for i:=1 to p do
begin
e:=e*10;
end;
 
if (k mod 2=0) then
z:=a div e
else z:=10*a div e;
 
s:=z mod 10; //s-цифра середины
if (s mod 2 = 0) then
writeln(s);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2012, 16:53
Ответы с готовыми решениями:

В диапазоне от N до М вывести все числа, последняя цифра которых равна K
В диапазоне от N до М вывести все числа, последняя цифра которых равна K

Ввывести на экран все двузначнае натуральные числа в диапазоне от A до B, записи которых есть цифра 8
Ввывести на экран все двузначные натуральные числа в диапазоне от A до B, записи которых есть цифра...

Исключить из массива все числа, у которых первая цифра четная
Дано целочисленный массив. Исключить из этого массива все числа, у которых первая цифра парная. ...

Найти все двузначные натуральные числа, первая цифра которых четная, а вторая – 0
30. Найти все двузначные натуральные числа, первая цифра которых четная, а вторая – 0

1
0 / 0 / 2
Регистрация: 14.11.2012
Сообщений: 12
24.11.2012, 13:57  [ТС] 2
Если кому-то понадобится,то доделал задачу,все работает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
var p,k,b,a,ch,e,i,z,s,m:integer;
begin
k:=0;
writeln;
write(Введите диапазон=');
readln(a,m);
repeat
b:=a mod 10; //b-конечная цифра
 
ch:=a;
while ch<>0 do
begin
ch:=ch div 10;
k:=k+1; //k-кол-во цифр в числе
end;
 
if (k mod 2=0) then
p:=k div 2            //p-порядок середины
else p:=(k div 2)+1;
 
e:=1;
for i:=1 to p do
begin
e:=e*10;
end;  
 
if (k mod 2=0) then
z:=a div e
else z:=10*a div e;
 
 
s:=z mod 10; //s-цифра в середине
if (s mod 2 = 0) then
writeln('В числе ',a, ' в середине четная цифра');
k:=0;
a:=a+1;
until (a=m)
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2012, 13:57

Вывести все натуральные трехзначные числа, в которых есть заданная цифра
1. Вывести все натуральные трехзначные числа, в которых есть заданная цифра.

Вывести все числа которые меньше 10000 и у которых есть цифра 3 и которое не делятся на 5
Вывести все числа которые меньше 10000 и у которых есть цифра 3 и которое не делятся на 5 for($i...

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...

Если цифра младшего разряда четная, то вывести все четные цифры числа, в противном случае – все нечетные
Дано n-значное число longInt. Написать программу. Если цифра младшего разряда четная, то вывести...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru