В одном купе поезда «Москва-Владивосток» собрались молодые люди, которые познакомились в этой поездке. Все они направлялись на р
аботу в разные города Восточной Сибири или Дальнего Востока. Один из них – Белов – уже не раз там бывал, хорошо знал те края и много рассказывал о них своим новым знакомым. Среди них оказался москвич Суворов, который в Сибири никогда до этого не был. Он неплохо играл в шахматы и поэтому не отходил от Серёгина, который был ему достойным оппонентом. Наташа ехала в Хабаровск после того, как окончила экономический техникум. Она была замужем за Евгением. У другой девушки из этого купе фамилия была такая же, как и у Дмитрия, а имя такое же, как у Серёгина. Оказалось, что Лоскутов и Серёгин – оба из Ярославля, а Георгий из Саратова. В фамилии Евгения три гласных буквы, а Юлий любит теннис. Назовите имена и фамилии всех собравшихся в этом купе молодых людей.
У 2-ой девушки имя как у Серегина Только 2 имени могут быть как мужским, так и женским - Юлий и Евгений Серегин не может быть Юлием, т.к. играет не в теннис, а в шахматы, значит Серегин - Евгений, а 2-я девушка - Евгения.
Наташа была замужем за Евгением, значит можно предположить, что она носит его фамилию => Наташа - Серегина.
Суворов не Евгений (уже занято), не Юлий, т.к. играет в шахматы, а не в теннис, и не Георгий, т.к. из Москвы, а не из Саратова => Суворов - Дмитрий. => 2-я девушка Евгения - Суворова, т.к. ее фамилия, такая же, как у Дмитрия.
Лоскутов из Ярославля, значит он не может быть Георгием => Лоскутов - Юлий.
Остается одна Фамилия Белов и одно имя Георгий => Белов - Георгий
Чтобы уменьшить количество вычислений, преобразуем формулу к рекуррентной.
Теперь все готово для программирования. <em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
var i,n:integer; a,s:real; begin Write('n='); Read(n); if n=1 then Writeln('S=1') else if n=2 then Writeln('S=0.5') else begin s:=0.5; a:=0.5; for i:=3 to n do begin a:=a/i; s:=s-a end end; Writeln('S=',s) end.
Это служебные слова в этом, так сказать, "языке программирования" (не поворачиваются пальцы написать это без кавычек). Они там означают "ЕСЛИ", ТО" и "ИНАЧЕ" соответственно.
Кнопки Page Up и Page Down позволяют "листать" страницы текста; Комбинация клавиш Ctrl+ стрелка(влево или вправо) позволяет перемещаться по словам; Кнопка Home возвращает в начало текста; Кнопка End перемещает в конец текста.
var i,j,max: integer; a: array [1..5,1..5] of integer;
begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:= random(10); write(a[i,j],' ') end; writeln end; max:= a[n,1]; for i:=1 to n do if a[i,n-i+1]>max then max:=a[i,n-i+1]; writeln(max) <span>end.</span>