Задание:
Помогите пожалуйста! 8 класс! Ввести натуральное число и определить, какие цифры встречаются несколько раз. Решить с помощью цикла с условием! Заранееспасибо!
Решение:
program asd; uses crt; var s,s1: string; i,j,k: integer; b1,b2: boolean; beginwriteln ('Vvedite naturalnoe chislo: '); readln (s); for i: =1 to length (s) do begin b1: =false; b2: =true; for j: =1 to length (s) do begin if i<>j then if s[i]=s[j] then begin b1: =true; for k: =1 to length (s1) do if s[i]=s1[k] then b2: =false; end; end; if b1 and b2 then s1: =s1+s[i]+'; end; if length (s1) <>0 then begin writeln ('Повторяются: ',s1); endelse writeln ('Ничего не повторяется'); readln; end.
Знаете другой ответ?