freepascal.ru

нада из числа выбрать все повторение например число 16771 и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0
ришить без массивов
мне помогите и объясните но решение недовать пака я не придумают или срок некончится в воскрисение паследний день мне надо будет здовать
вот что я зделал

Код: Выделить всё

program m;
var a:longint;

function cislo(n:longint):longint;
begin
  while n>0 do
  begin
    cislo:= n mod 10;{число разделяю на цифры}
    n:=n div 10;
    writeln(cislo);
  end;
end;

begin
  writeln('vvedite');
  readln(a);
  cislo(a);
  readln;
end.

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

Модератор: следующие посты без форматирования буду удалять !

Я бы TList'ом воспользовался, но подозреваю что нельзя ^_^

да нилзя tlist я низнаю что это такое и в школе нилзя упатреблят что ище нипрохадили

Цифр всего 10. Заводим под каждую переменную-счетчик и считаем. Показываем те где счетчик=1.

а лучше массив, если прохдили =)

массивы не проходили так как сделать я чегото не врубаюсь

заводишь 10 переменных типа интеджер
с1 с2 .. с0
обнуляешь их в 0
перебераешь полученное число
если там есть 2 то в с2 добавляешь 1

потом проверяешь все переменые и выводить только те которые равны 1

ой я ище забил что мне нада функцию ln(c:longint):longint; и все в ней зделат

так паможете или низнаете

нада из числа выбрать все повторение например число 16771 и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0

A если 10771 и 9966 то 0 будет в обоих случаях. Как быть в таком примере?

так и будит

Чтото немогу понять описание задачи

->смутно формулируешь задачи

maks писал(а): и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0

Как понимать?
-> написать на экране 6
написать на экране цифру 6
написать на шестом экране

где запитая должна быть после 6 или после повторы?

->повторы 77 и 11 ненужны
как это понимать?
или ненужны 9966

Какафония слов - извените за выражение

опиши понятно и дай понятные примеры а потом проси решения задачи

обязательно поможем!!!

maks писал(а):так и будит

Ты случайно не двоичник?
правильно будет -> так и будет

Если работу со строками проходили (copy(), pos()), то можно преобразовать число в строку и с ней работать, хотя по-моему значительную часть ты уже сделал.

AMD писал(а):где запитая должна быть после 6 или после повторы?

или не_нужны 9966

Какафония слов - извените за выражение

maks писал(а):так и будит

Ты случайно не двоичник?
правильно будет -> так и будет

Он честно написал, что из Вильнюса.