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

Если в числе все цифры разные то истина, если повторяются то ложь

09.04.2009, 02:34. Просмотров 647. Ответов 3
Метки нет (Все метки)

Пожалуйста помогите!
я в паскаль ваще мало втыкаю ...и не магу понять как решить вот эти две задачи:
1. Вводится натуральное число (9<N<1000000). Если в числе все цифры разные то истина, если повторяются то ложь.

и еще одно условие паставил препод: решать только циклами((
помогите пажалуйста!
заранее благодарен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2009, 02:34
Ответы с готовыми решениями:

Истина и ложь
Условие: Составить логическое выражение, значение которого равно true, если...

Присвоить логической переменной значение "истина", если все элементы массива не превышают значения своего последнего элемента
На основе элементов вещественного массива Х1,Х2,..Х12 присвоить логической...

логика и ее законы + истина и ложь
Помогите решить задачу пожалуста!!!! Маша Саша и Коля во время практики...

Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке
Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в...

Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число
Переменной t присвоить значение истина, если в одномерном массиве имеется хотя...

3
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
09.04.2009, 16:00 2
№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
program kkk;
uses crt;
var n,i:longint;
     c:array[0..9]of byte;;
     f:boolean;
 
begin
 clrscr;
 f:=true;
 readln(n);
 for i:=0 to 9 do c[i]:=0;
 repeat
  if c[n mod 10]=0 then c[n mod 10]:=1
  else
   begin
    f:=false;
    break;
   end;
  n:=n div 10;
 until n=0;
 if f then writeln('Истина') else writeln('Ложь');
 readln;
end.
0
Nem1r0ff
0 / 0 / 0
Регистрация: 09.04.2009
Сообщений: 3
09.04.2009, 16:15  [ТС] 3
Спасиба огромное !!!
0
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
09.04.2009, 16:16 4
Не забываем про кнопочку)...
|
|
|
|
\/
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2009, 16:16

Вычислите значение отношений напишите, где истина а где ложь
вычислите значение след отношений напишите где истина а где лож a &lt;&gt; б =...

Сколько комбинаций можно составить из разных символов, если они повторяются
Собственно, такая задача: Даны n карточek, на которых написано ОДНА буква....

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


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

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

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