Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Решение уравнения методом итераций https://www.cyberforum.ru/ turbo-pascal/ thread619057.html 1.3 синус(х+п/4)+2.3х-20=0 надо составить программу методом итераций точностью 0.0000001	Turbo Pascal Найти количество нечетных элементов массива Дан массив целых чисел. Найти количество нечетных элементов массива
Turbo Pascal Разделить элементы k-и строк матрицы на диагональный элемент, расположенный в этой строке https://www.cyberforum.ru/ turbo-pascal/ thread618867.html Задана матрица размером N x. N и число k. разделить элементы k-и строк на диагональный элемент, расположенный в этой строке.	Turbo Pascal Дан массив А из 100 элементов, состоящая из нулей и 1, Заменить 1-нулями и наоборот https://www.cyberforum.ru/ turbo-pascal/ thread618855.html Дан массив А из 100 элементов, состоящая из нулей и 1, Заменить 1-нулями и наоборот.
Заменить все нечётные элементы массива на 0 Turbo Pascal Задан массив из 15 элементов Заменить все нечётные элементы на 0	Turbo Pascal Найти число, которое находится как можно дальше от ближайшего к нему целого числа Написать программу, которая выполняет: 1)Ввод с клавиатуры вещественных чисел. Введение числа 127 означает конец ввода 2)Вывод на экран количества введенных чисел и числа, которое находится как можно дальше от ближайшего к нему целого числа 3) При выполнении заданиямассивы не использовать https://www.cyberforum.ru/ turbo-pascal/ thread618754.html
Turbo Pascal Найти длину наименьшего отрезка числовой оси, соддержащего все элементы массива https://www.cyberforum.ru/ turbo-pascal/ thread618751.html Написать процедуру (функцию) обработки массива с параметрами для заданного одномерного масива целочисленных данных: найти длину наименьшего отрезка числовой оси, соддержащего все элементы массива.	Исправьте программу: по таблице ребер построить списки инцидентности неориентированного графа Turbo Pascal Показывает ошибку 2 (файл не найден) в строчке: assign(fout, 'output.txt'); rewrite(fout); Исправьте, пожалуйста, ошибку или объясните что сделать. Два файла находятся на диске С:\ А задача была следующая: по таблице ребер построить списки инцидентности неориентированного графа, удалить из графа вершины с номерами n1 и n2. Program proba; const max_n=100; Type TList=^List; List=record
Turbo Pascal Переписать числа файла во второй файл возведенными в квадрат https://www.cyberforum.ru/ turbo-pascal/ thread618633.html 2.Создать и заполнить файл f1 числами. Переписать числа файла f1 в f2 возведенными в квадрат	Turbo Pascal Переписать с сохранением порядка следования строки файла f1 в файл f2, а строки файла f2 в файл f1 в обратном порядке 1.Создать и заполнить текстовые файлы f1 и f2. Переписать с сохранением порядка следования строк файла f1 в файл f2, а строки файла f2 в файл f1 в обратном порядке. Использовать вспомогательный файл temp. По окончанию работы программы, файл temp удалить. https://www.cyberforum.ru/ turbo-pascal/ thread618624.html
Создать файл каталог книг, по году издания занести в отдельный файл данные Turbo Pascal создайте файл каталог книг по заданному значению года издания занесите в отдельный файл сведения о произведениях изданных в указанном году	Turbo Pascal Решение уравнения методом половинного деления 1.3 синус(х+п/4)+2.3х-20=0 надо составить программу методом половинного деления точностью 0.0000001 https://www.cyberforum.ru/ turbo-pascal/ thread618610.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

04.07.2012, 18:43

Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры - Turbo Pascal - Ответ 3238000

04.07.2012, 18:43. Показов 3647. Ответов 4

Метки (Все метки)

Ответ

Sirius051, сумма найдена

Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры

Sirius051, mod 10 позволяет узнать последнюю цифру, div 100 - первую, div 10 mod 10 - среднюю... даже если анализировать число несколько по другому, все равно надо использовать операции целочисленного деления
вот (извращенный вариант)

Pascal

uses crt;
var s: integer;
 
procedure IsSame (n: integer; var b: boolean);
var cp,c: byte;
begin
b:=true;
cp:=n mod 10; n:=n div 10;
while n>=1 do
      begin
      c:=n mod 10;
      n:=n div 10;
      if c<>cp then b:=false;
      end;
end;
 
procedure WriteSum (var sum: integer);
var i: integer;
    p: boolean;
begin
for i:=100 to 999 do
    begin
    IsSame (i,p);
    if p then
       begin
       write(i,' ');
       inc(sum,i);
       end;
    end;
end;
 
begin
WriteSum (s);
writeln;
writeln('Summa=',s);
readln;
end.

а можно пойти по пути наименьшего сопротивления (и действительно без div и mod), но...
простовато

Pascal

uses crt;
var i: byte;
    s: integer;
    
procedure IsSame (var sum: integer);
var i: byte;
begin
for i:=1 to 9 do
    begin
    write(i*111,' ');
    inc(sum,i*111);
    end;
end;
 
begin
IsSame (s);
writeln;
writeln('Summa=',s);
readln;
end.

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

Вернуться к обсуждению:
Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.07.2012, 18:43

Готовые ответы и решения:

Вывести на экран все 2х значные числа у которых 1 и 2 цифры равны меж собой.
1. Решить тремя операторами цикла p=1*2*3*..*n ; 2. Вывести на экран все 2х значные числа у...

Найти все 4-значные числа, у которых ровно две одинаковые цифры
Найти все 4-значные числа, у которых ровно две одинаковые цифры. Либо 7 либо 8 через функцию +

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

Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры
Даны четырехзначные натуральные числа N и K. Из чисел от N до K выбрать те, запись которых содержит...

	04.07.2012, 18:43

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.07.2012, 18:43

Помогаю со студенческими работами здесь

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

Вложенные циклы(Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры)
Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры. Подсчитать...

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

Вывести все 3-х значные числа, цифры которых находятся в порядке возрастания
Пргорамма С++ ...

Наверх