Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 26.10.2011
Сообщений: 5
1

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

26.10.2011, 16:15. Показов 3326. Ответов 1
Метки нет (Все метки)

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2011, 16:15
Ответы с готовыми решениями:

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.

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

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Например:...

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры
Ввести целое число и определить , верно ли , что в его записи есть две одинаковые цифры. ...

1
Полярный
475 / 447 / 158
Регистрация: 11.09.2011
Сообщений: 1,156
27.10.2011, 13:14 2
Лучший ответ Сообщение было отмечено bomj_v_paskale как решение

Решение

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
uses crt;
var
 i, n, x, sum, y: integer;
 s: string;
 f: boolean;
begin
read(n);
x:= n;
sum:= 0;
i:= 0;
while (x > 0) do
begin
   y:= x mod 10;
   x:= x div 10;
   sum:= sum+y;
   inc(i);
end;
str(n, s);
f:= false;
for i:= 2 to length(s) do
  if(s[i] = s[i-1]) then
    f:= true;
if f then writeln('est sosednie odinak') else writeLn('net sosedn odinak');
writeln('summa = ', sum, ' sr arifmet = ', sum/i, ' kolvo cifr = ', i);
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2011, 13:14

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры
Задача на С++ (do..while) Нужно ввести целое число и определить, верно ли, что в его записи...

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

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

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


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

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

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