1) Решить задачу с подробным решением. В шахматном турнире принимали участие шесть игроков из разных городов России: Воркуты, Ир
1) Решить задачу с подробным решением. В шахматном турнире принимали участие шесть игроков из разных городов России: Воркуты, Иркутска, Саратова, Тюмени, Уфы и Рязани. В первом туре Александр играл с представителем Воркуты, уфимец - с Николаем, а Геннадий - с Михаилом. Во втором туре Денис играл представителем Тюмени, а шахматист из Воркуты - с Николаем. В третьем туре Михаил играл с иркутянином. Кто из игроков представлял какой город, если в итоге Николай занял первое место, Геннадий и иркутянин поделили 2-е и 3-е места, Денис был четвёртым, а Семён и саратовец поделили 5-е и 6-е места? Желательно составить таблицу.
Итак, задачка на логику. Распишем города:<span> Воркута, Иркутск, Саратов, Тюмень, Уфа и Рязань. В скобках возможные города:
Александр - </span>Иркутск<span> Николай - Рязань</span><span> Геннадий - Тюмень</span><span> Михаил -</span> Саратов<span> Денис - Уфа</span><span> Семён - Воркута
Итак, здесь будут рассуждения: Значит читаем, Александр играл с представителем Воркуты, значит Александр не из Воркуты, ставим - Уфимец - с Николаем, Николай не из Уфы. Геннадий с Михаилом - значит они тоже не из Уфы и не из Воркуты Денис играл с представителем Тюмени - Денис,Николай не из Тюмени Николай с представителем Воркуты - Николай, Денис не из Воркуты Из Воркуты остался Семён, ему ставим + и вычеркиваем остальные города. Геннадий и иркутянин поделили место - Геннадий, Николай, Денис, Семен не из Иркутска, также не из Саратова Николай остался с Рязанью. В итоге Геннадию досталась Тюмень, а Денису Уфа. Осталось узнать кто из пары Александр - Михаил из Иркутска/Саратова Так как Михаил в третьем туре играл с иркутянином, он не из Иркутска. Значит остается только 1 вариант. Ответ: </span>Александр - Иркутск Николай - Рязань Геннадий - Тюмень Михаил - Саратов Денис - Уфа Семён - Воркута
Uses crt; const n=10; var a:array[1..n] of integer; s,i,min,k:integer; begin min:=1000; for i:=1 to n do begin readln(a[i]); if a[i]<min then begin min:=a[i]; k:=i; end; end; s:=0; for i:=k+1 to n do s:=s+a[i]; writeln(s); end.
Program gt; var n,i:integer; a:array[1..1000]of integer; begin randomize; read(n); for i:=1 to n do a[i]:=random(40)-20; for i:=1 to n do begin write(a[i]:4,' '); if(i mod 4=0)then writeln; end; for i:=1 to 4-n mod 4 do write(0:4,' '); end.
Program gt; label 1; var a:array[1..30]of integer; i,min:integer; begin randomize; min:=200; 1: for i:=1 to 30 do begin a[i]:=random(101); if(a[i]<min)and(a[i]>=20)then min:=a[i]; end; if(min<>200)then begin for i:=1 to 30 do write(a[i],' '); writeln; writeln(min); exit; end; if(min=200)then goto 1; end.