Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
игорь г
1 / 1 / 0
Регистрация: 29.09.2009
Сообщений: 44
1

Определить количество цифр в введенных числах и вывести на экран сколько цифр в первом и втором числах

24.10.2010, 17:33. Просмотров 1158. Ответов 7
Метки нет (Все метки)

ввести 2 числа, определить количество цифр в введеных числах и вывести на экран сколько цифр в первом и втором числах
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2010, 17:33
Ответы с готовыми решениями:

Нахождение одинаковых цифр в натуральных числах
Даны два натуральных числа m и n(m<9999, n<9999). Проверить, если ли в записи числа m цифры,...

Написать программу для определения одинаковых цифр в числах
Здравствуйте. Бьюсь над этими заданиями уже давно. Может у кого-нибудь идеи, куда мне копать? ...

Найти сумму цифр в чётных числах заданного списка
Всем привет. Есть задача которую не могу решить. Нужно найти сумму цифр чётных чисел. Пример -...

Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N<10255). Вывести на экран количество цифр числа N и сумму его цифр.

В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран
В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести...

7
Puporev
Модератор
56573 / 43272 / 29916
Регистрация: 18.05.2008
Сообщений: 102,926
24.10.2010, 17:50 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
function Kol(n:longint):byte;
var m:longint;
     k:byte;
begin
m:=n;
k:=0;
while m>0 do
  begin
   m:=m div 10;
   k:=k+1;
  end;
Kol:=k;
end.
var a,b:longint;
begin
write('a=');
readln(a);
writeln('Количество цифр=',Kol(a));
write('b=');
readln(b);
writeln('Количество цифр=',Kol(b));
readln
end.
0
SuPeR XaKer
2845 / 1974 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.10.2010, 17:51 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
var
k,k2,kol1,kol2:integer;
begin
readln(k);
readln(k2);
kol1:=0;
kol2:=0;
 repeat
  begin
   k:=k div 10;
   inc(kol1);
  end;
 until (k=0);
 repeat
  begin
   k2:=k2 div 10;
   inc(kol2);
  end;
 until(k2=0);
writeln(kol1);
writeln;
writeln(kol2);
end.
эх опоздал....
0
Puporev
Модератор
56573 / 43272 / 29916
Регистрация: 18.05.2008
Сообщений: 102,926
24.10.2010, 17:53 4
Нормально... Может ТС не надо с функцией....
0
24.10.2010, 17:53
NasmAPIk
57 / 57 / 36
Регистрация: 17.03.2009
Сообщений: 105
24.10.2010, 18:06 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Zadacha;
uses crt;
var
 s1,s2:string;
begin
 clrscr;
   write('Vvedite A: ');
   readln(s1);
 
   write('Vvedite B: ');
   readln(s2);
   writeln(length(s1));
   writeln(length(s2));
 readkey;
end.
Еще вариант, только числа представлены строками
0
nonamez123
187 / 183 / 54
Регистрация: 23.10.2010
Сообщений: 1,331
24.10.2010, 18:11 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ммм, народ, а не могли бы подсказать почему у мну не заработало?
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
program test;
   var
      q,w,e,r : longint;
 
begin
e:=0;
r:=0;
 
write('введите первое число ');
readln(q);
write('введите второе число ');
readln(w);
while (q>0) do
begin
q:=q div 10;
e:=e+1;
end;
while (w>0) do
begin
w:=w div 10;
r:=r+1;
end;
writeln('в первом числе ',e,' знаков');
writeln('во втором числе ',r,' знаков');
readln;
 
end.
0
Puporev
Модератор
56573 / 43272 / 29916
Регистрация: 18.05.2008
Сообщений: 102,926
24.10.2010, 18:13 7
Цитата Сообщение от nonamez123 Посмотреть сообщение
q:=q mod 10;
А нафига ты остаток считаешь? Тебе же нужно делить число на 10, пока не ноль, и считать разряды при этом.
1
nonamez123
187 / 183 / 54
Регистрация: 23.10.2010
Сообщений: 1,331
24.10.2010, 18:16 8
Цитата Сообщение от Puporev Посмотреть сообщение
А нафига ты остаток считаешь? Тебе же нужно делить число на 10, пока не ноль, и считать разряды при этом.
Благодарю))) а я почему-то считал, что я модом просто буду запятую двигать в лево
0
24.10.2010, 18:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2010, 18:16

Найти суммарное число цифр во всех целых числах от m до n включительно
найти суммарное число цифр во всех целых числах от m до n включительно. Помогите написать программу

Строки. Найти сумму цифр в числах и вывести их на экран
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами...

Сравнить количество цифр в 2-х числах
сравнить кол-во цифр в 2-х числах.(алгоритм функции)


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

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

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