тема: Цикл с предусловием. Задание :Ввести целое число и ...

Question

тема: Цикл с предусловием. Задание :Ввести целое число и ...

Дмитрий

тема: Цикл с предусловием. Задание :Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. в паскале напишите программу плиз

Есть ответ

17.12.2022

129

Ответ

Answer 1 · 17.12.2022

Program A;uses crt;

var s: string; k,j,f: integer; ch: char; begin read(S); f:=0; for k:=1 to length(s) do for j:=1 to length(s) do if ((s[k]=s[j]) and (kj)) then begin f:=1; ch:=s[k]; end; if f=1 then Writeln('YES - ',ch) else write('NO'); readln; End.

тема: Цикл с предусловием. Задание :Ввести целое число и ...

тема: Цикл с предусловием. Задание :Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. в паскале напишите программу плиз

Ответ

Program A;uses crt; var s: string; k,j,f: integer; ch: char; begin read(S); f:=0; for k:=1 to length(s) do for j:=1 to length(s) do if ((s[k]=s[j]) and (kj)) then begin f:=1; ch:=s[k]; end; if f=1 then Writeln('YES - ',ch) else write('NO'); readln; End.

Program A;uses crt;

var s: string; k,j,f: integer; ch: char; begin read(S); f:=0; for k:=1 to length(s) do for j:=1 to length(s) do if ((s[k]=s[j]) and (kj)) then begin f:=1; ch:=s[k]; end; if f=1 then Writeln('YES - ',ch) else write('NO'); readln; End.