Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>
Известно что Боря жил в одной комнате с мальчиком из Кирова и ни один из этих мальчиков не был в Москве, ни в Санкт-Петербурге, то есть Боря был не из Москвы, не из Питера и не из Кирова, остаётся-Омск.Гриша играл в одной команде с мальчиком из Москвы, а вечерами к ним заходил мальчик из Кирова, значит, точно знаем, что Гриша был не из Москвы, не из Кирова, остаются Питер и Омск, но мы уже установили, что из Омска был-Боря, получается, что Гриша был из Питера.
Егор и мальчик из Москвы увлекались игрой в шахматы, значит, Егор был точно не из Москвы, и при этом мы знаем, что Омск и Питер уже заняты. Остался Киров У нас остался один город Москва и один мальчик, которого зовут Витя, значит, Витя был из Москвы.
Ответ:Витя из Москвы, Боря из Омска,Гриша из Санкт-Петербурга, Егор из Кирова.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Искомое произведение ',
a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]).
Aggregate(BigInteger(1),(x,y)->x*y));
end.
<u>Пример</u>
*** Исходный массив ***
60 -23 10 -18 -97 -90 -56 5
32 51 -2 3 63 -76 17 85
-41 -64 9 59 84 -66 69 28
--------------------------------
Искомое произведение 1284904222221312000
Var
a,b,x1,x2:real;
begin
Read(a);readln(b);
if (a*b>0) and( b<>0) then writeln(-2*sqrt(b),' ',2*sqrt(b),' ','0'); else writeln('0');
end.
Program n1;
var a,b,c: real;
begin
readln(b,c);
a:=sqrt(c*c-b*b);
writeln(a);
end.