Помогите пожалуйста! 8 класс!

Question

Помогите пожалуйста! 8 класс! Ввести натуральное число и определить, какие цифры встречаются несколько раз. Решить с помощью цикла с условием! Заранееспасибо!

Answer 1

81

sanata14

14 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: