Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Nem1r0ff
0 / 0 / 0
Регистрация: 09.04.2009
Сообщений: 3
#1

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

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

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

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

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

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

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

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

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

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

3
yanyk1n
4331 / 1462 / 152
Регистрация: 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 / 1462 / 152
Регистрация: 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
Привет! Вот еще темы с ответами:

Вычислите значение отношений напишите, где истина а где ложь - Pascal
вычислите значение след отношений напишите где истина а где лож a &lt;&gt; б = в = г = d &lt;= e &lt;= ж trunc (3,9) in з odd...

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

Все цифры в числе чётные. - Pascal
срочно нужна функция,которая выводит все числа на промежутке ,которые удовлетворяют условию :все цифры в числе чётные. спасибо

составить программу ,которая в строке произвольной длины заменяет все "+" на "*" если за ними следуют не цифры - Pascal
составить программу ,которая в строке произвольной длины заменяет все &quot;+&quot; на &quot; * &quot; если за ними следуют не цифры Решить в Pascale !...


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

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

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