Задать вопрос
16 ноября, 15:47

9 класс. Сделайте программу в паскале Ввести натуральное число и определить, какие цифры встречаются несколько раз, если никакие не повторяются вывести: "Цифры не повторяются."

У меня получилось ну это не правильно!

program five;

var n, m, i, j, k:integer;

begin

write ('Введите число:') ;

readln (n) ;

for i:=0 to 9 do

begin

k:=0;

m:=n;

while m0 do

begin

j:=m mod 10;

if j=i then k:=k+1;

m:=m div 10;

end;

writeln ('цифра ', i,' встречается ', k,' раз') ;

end;

end.

+5
Ответы (1)
  1. 16 ноября, 19:41
    0
    Program nd;

    var n, n1, d, d1: longint;

    k, a, c: integer;

    b: boolean;

    begin

    write ('Введите число: ') ;

    readln (n) ;

    b: = false;

    k:=0;

    while (n>9) and (not b) do

    begin

    d: = n mod 10;

    n1: = n div 10;

    while (n1>0) and (not b) do

    begin

    d1: = n1 mod 10;

    b: = d1 = d;

    n1: = n1 div 10;

    end;

    n: = n div 10;

    end;

    while n0 do

    begin

    c:=n mod 10;

    if c=d1 then k:=k+1;

    n:=n div 10;

    end;

    if b then writeln ('в этом числе повторяется ', k+1,' раз цифра ', d1)

    else writeln ('цифры не повторяются') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «9 класс. Сделайте программу в паскале Ввести натуральное число и определить, какие цифры встречаются несколько раз, если никакие не ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике