Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
dexterlab97
0 / 0 / 1
Регистрация: 10.11.2014
Сообщений: 19
1

Вывести все цифры 5-значного числа

10.11.2014, 18:36. Просмотров 895. Ответов 5
Метки нет (Все метки)

Пишу программу которрая выыводит все цифры 5-значного числа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program idc;
var nmb,a,b,c,d,e,f,g,h,i,j,k: integer;
begin
read(nmb);
a:=nmb div 10000;
e:=nmb mod 10;
j:=nmb mod 100;
d:=(j-e)/10;
k:=nmb mod 1000;
c:=(k-j)/100;
b:=(nmb-1000*a-10*c-d)/100;
writeln('a',a);
writeln('b',b);
writeln('c',c);
writeln('d',d);
writeln('e',e);
end.
и в конце
Program1.pas(8) : Incompatible types: 'real' and 'integer' (строка 8)
В чем ошибка?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2014, 18:36
Ответы с готовыми решениями:

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

Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество и сумму
Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество...

Программа показывающая сумму 1 и 3 цифры 4х значного числа
Не выводит результат program qq; var n,a,b,k:integer; begin write('Введите число: '); ...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
1. Построить блок-схему и решить задачу, используя цикл с предусловием: Вывести на экран все...

5
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4749 / 3400 / 4008
Регистрация: 05.06.2014
Сообщений: 16,959
10.11.2014, 19:31 2
Лучший ответ Сообщение было отмечено dexterlab97 как решение

Решение

Знак / подразумевает вещественное деление.
Примеры:
1/2=0.5
2/2=1.0
Для целочисленного деления используйте div, mod
1
dexterlab97
0 / 0 / 1
Регистрация: 10.11.2014
Сообщений: 19
11.11.2014, 14:12  [ТС] 3
но при делении же получается целое число, все таки mod ?
0
Puporev
Модератор
56892 / 43464 / 30047
Регистрация: 18.05.2008
Сообщений: 103,558
11.11.2014, 14:38 4
Pascal
1
2
3
4
5
a:=nmb div 10000;
b:=nmb div 1000 mod 10;
c:=nmb div 100 mod 10;
d:=nmb div 10 mod 10;
e:=nmb mod 10;
0
dexterlab97
0 / 0 / 1
Регистрация: 10.11.2014
Сообщений: 19
11.11.2014, 18:51  [ТС] 5
спасибо всем уже создал вот как выглядит полная программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program idc;
var nmb,a,b,c,d,e,f,g,h,i,j,k: integer;
begin
read(nmb);
if nmb
a:=nmb div 10000;
k:=nmb div 1000;
b:=k-(10*a);
f:=nmb div 100;
c:=f-100*a-10*b;
g:=nmb div 10;
d:=g-1000*a-100*b-10*c;
e:=nmb mod 10;
writeln('a',a);
writeln('b',b);
writeln('c',c);
writeln('d',d);
writeln('e',e);
end.
0
Puporev
Модератор
56892 / 43464 / 30047
Регистрация: 18.05.2008
Сообщений: 103,558
11.11.2014, 19:01 6
Ну так конечно же короче и проще чем у меня...
1
11.11.2014, 19:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2014, 19:01

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа,...

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

Вывести все четные цифры из числа
Всем привет! Помогите пожалуйста. Нужно вывести все четные цифры из числа Например дано число...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru