Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, не обязательно стоящие рядом. пример: введите целое число: введите целое число: 1234 1242 нет. да. через программу кумир (язык алгоритм)

рисунки кодируются с следующих команд:

установить х, у — установить в качестве текущей точку с координатами (х, у);

линия к х1, у1 — нарисовать линию от текущей точки до точки с координатами (х, у), при этом точка (х1, у1) становится текущей;

окружность х, у — нарисовать окружность с центром в точке (x, у) и радиусом ;

прямоугольник х1, у1, х2, у2 — нарисовать прямоугольник, где (x1, у1) — координаты левого верхнего, а (х2, у2) — правого нижнего угла этого прямоугольника.

по имеющимся описаниям восстановите рисунки.

описание

установить 60, 20

линия к 20, 60

линия к 180, 60

линия к 140, 20

линия к 60, 20

прямоугольник 60, 80, 100, 60

прямоугольник 100, 120, 150, 60

окружность 140, 40, 10

описание

установить 20, 50 линия к 40, 70 линия к 50, 70 линия к 90, 110 линия к 120, 120 линия к 110, 90 линия к 70, 50 линия к 70, 40 линия к 50, 20 линия к 50, 40 линия к 40, 50 линия к 20, 50 окружность 80, 80, 10 окружность 100, 100, 10

описание

установить 20, 80 линия к 65, 110 линия к 110, 80 линия к 20, 80 прямоугольник 20, 30, 110, 10 прямоугольник 30, 80, 40, 30 прямоугольник 50, 80, 60, 30 прямоугольник 70, 80, 80, 30 прямоугольник 90, 80, 100, 30

описание

установить 30, 40 линия к 40, 10 линия к 60, 10 линия к 70, 40 прямоугольник 20, 50, 80, 40 установить 50, 50 линия к 50, 80 окружность 40, 80, 10 окружность 60, 80, 10 окружность 30, 100, 10 окружность 50, 100, 10 окружность 70, 100, 10 окружность 40, 120, 10 окружность 60, 120, 10

program noname; uses crt; vara: array[1..1000,1..1000] of integer; i,j,min,n,m,l: integer; beginclrscr; write('n='); readln(n); write('m='); readln(m); for i: =1 to n dofor j: =1 to m do beginwrite('a[',i,',',j,']='); readln(a[i,j]); end; for i: =1 to n do begin writeln; for j: =1 to m dowrite(a[i,j],' '); end; writeln;

for i: =1 to n do beginmin: =0; for j: =1 to m doif min> a[i,j] then begin min: =a[i,j]; l: =j; end; if min< > 0 thenwriteln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)else writeln ('v ',i,' stroke otricatelnyh chisel net'); end; readkey; end.