0 / 0 / 0
Регистрация: 28.10.2010
Сообщений: 18
1

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

07.11.2010, 19:54. Показов 1659. Ответов 1
Метки нет (Все метки)

Составить программу, определяющую, в каком из данных двух чисел больше цифр (Создать подпрограмму для вычисления кол-ва цифр в числе).

Какая ошибка? Заранее спасибо.


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
program sad;
 uses crt;
 var a,b,c,d,e,f,g,h:integer;
procedure vi41;
 begin
 b:=0;
 while e<>0 do
 begin
 a:=b+1;
 c:=a;
 e:=e div 10;
 end;
 g:=0;
 while f<>0 do
 begin
 d:=g+1;
 h:=d;
 f:=f div 10;
 end;
 end;
 
begin
 writeln('');
 writeln('Введите 2 числа');
 readln(e,f);
 vi41;
 if c=h then writeln ('в первом числе больше цифр чем во втором ') else writeln ('во втором числе больше цифр чем в первом ');
end.
Добавлено через 1 минуту
Программа почему-то всегда выдает один и тот-же ответ: Первое число больше второго...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2010, 19:54
Ответы с готовыми решениями:

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

Составить программу, определяющую, в каком из данных двух чисел больше цифр.
1)Составить программу, определяющую, в каком из данных двух чисел больше цифр. 2)Заданы два...

Определить в каком из чисел больше цифр 5
Необходима помощь по задаче. Даны 2 натуральных числа. В каком из них больше количество цифр 5...

Определить, в каком из 2 чисел сумма цифр больше
Задача: Дано два натуральных числа. Выяснить в каком, из них сумма цифр больше. Определить функцию...

1
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.11.2010, 19: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
program sad;
uses crt;
var a,b,c,d,e,f,g,h:integer;
procedure vi41;
begin
b:=0;
while e<>0 do
begin
e:=e div 10;
b:=b+1;
end;
g:=0;
while f<>0 do
begin
f:=f div 10;
g:=g+1;
end;
end;
 
begin
writeln('');
writeln('Ââåäèòå 2 ÷èñëà');
readln(e,f);
vi41;
if b>g then writeln ('â ïåðâîì ÷èñëå áîëüøå öèôð ÷åì âî âòîðîì ') else
if b<g then
writeln ('âî âòîðîì ÷èñëå áîëüøå öèôð ÷åì â ïåðâîì ')
else
writeln('Îäèíàêîâî');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2010, 19:57
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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