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

Question

97

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

rsergo · Accepted Answer

36

rsergo

02 марта 2023

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 (k<>j) then begin f: =1; ch: =s[k]; end; if f=1 then Writeln ('YES — ',ch) else write ('NO'); readln; End.

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

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

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

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