Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Истинно ли высказывание: Дробь А/В является правильной https://www.cyberforum.ru/ turbo-pascal/ thread141471.html
Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае. Дробь А/В является правильной.
Turbo Pascal Ветвление: Данные числа с и d являются соответственно квадратом и кубом числа а
Данные числа с и d являются соответственно квадратом и кубом числа а.
Turbo Pascal Блок-схема для процедуры https://www.cyberforum.ru/ turbo-pascal/ thread141449.html
Program b007; Uses crt; Type Mas1=array of real; Mas2=array of real; Var F: Mas1; T,V,W:mas2; I,j,k,m,n,r,t:integer; X:integer;
Turbo Pascal В чем преимущество двунаправленного списка https://www.cyberforum.ru/ turbo-pascal/ thread141329.html
в чем конкретно преимущество двунаправленного списка надо очередью и стеком(помимо добавления и удаления элементов из конца/начала)?
Turbo Pascal рекурентность, найдите ошибку
program task2_b; uses crt; const a=0.1; b=0.8; h=0.1; n=10; var x,y,s,z,t,i:real; k:integer; begin clrscr;
Turbo Pascal вектор https://www.cyberforum.ru/ turbo-pascal/ thread141287.html
Здравствуйте. Дан вектор, добавить элемент после i-го элементу.
Turbo Pascal Несовместимость букв кириллицы и графического режима Здравствуйте уважаемые форумчане. При написании курсовой роботы я столкнулся с такой проблемой. Все подписи в меню и справках сделаны буквами кириллицы, и когда я подключаю графический режим, все подписи в меню и справках превращаются вот в что "ўҐ¤iвм Їа®ЇгбЄ*г §¤ в*iбвм Ґа®Ї®авiў". Подскажите пожалуйста как можно решить такую проблему. P.S. Курсовая написана на Турбо Паскале 7.0. https://www.cyberforum.ru/ turbo-pascal/ thread141258.html Ошибка: файл не найден Turbo Pascal
uses crt, graph; var gd, gm:integer; begin initgraph(gd,gm,''); ellipse(150,200,30,40,250,90); readln; closegraph; end. Это попытка написания програмки по нарисованию человечка! Помогите пожалуйста! Почему при запуске этой программы выдает: файл не найден (GRAPH. TPU).
Turbo Pascal Удаление элемента из очереди у меня такая проблема.когда удаляю элемент из очереди то у меня удаляется вся очередь. type ochered = ^ocheredy; ocheredy = record data: integer; next: ochered; end; var head: ochered; https://www.cyberforum.ru/ turbo-pascal/ thread141188.html Turbo Pascal Заполнить каждый элемент двумерного массива суммой его индексов https://www.cyberforum.ru/ turbo-pascal/ thread141187.html
Заполнить каждый элемент двумерного массива суммой его индексов.В чётных столбцах значение удвоить,в нечётных уменьшить на 2.Найти позицию минимального элемента массива. ЛЮДИ ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Turbo Pascal Заполнить файл последовательного доступа N действительными числами
Заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел. Найти сумму минимального и максимального элементов этого файла
Turbo Pascal Дан файл, содержащий текст на русском языке. Подсчитать количество слов, содержащих три одинаковых буквы. Дан файл, содержащий текст на русском языке. Подсчитать количество слов, содержащих три одинаковых буквы. https://www.cyberforum.ru/ turbo-pascal/ thread141010.html
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
06.06.2010, 11:22 0

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр - Turbo Pascal - Ответ 782971

06.06.2010, 11:22. Показов 8087. Ответов 5
Метки (Все метки)

Ответ

все трехзначные числа
А я это вижу так...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program Number3;
Uses Crt;
Var
  i:word;
  Stri:string[3];
 
BEGIN
  ClrScr;
  for i:=100 to 987 do
    begin
      Str(i,Stri);
      if (Stri[1]<>Stri[2]) and (Stri[2]<>Stri[3]) and (Stri[1]<>Stri[3])
        then write(i:4);
    end;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
END.


Вернуться к обсуждению:
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2010, 11:22
Готовые ответы и решения:

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

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
3)Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет...

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

Напечатать в возрастающем порядке все двузначные числа,в десятичной записи которых нет одинаковых цифр
Без массивов 1 Напишите программу вычисления суммы для n слагаемых вида (i+1) в...

5
06.06.2010, 11:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2010, 11:22
Помогаю со студенческими работами здесь

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

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

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

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
Задача такая: Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых...

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