Вести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, НЕ обязательно стоящие рядом.
Пример: Введите целое число
1234
Нет одинаковых цифр
Введите целое число
1242
Есть одинаковые цифры.
Язык программирования КУМИР.

сидерический год.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.