<span>1) Смирнов </span>
<span>Иванов </span>
<span>Кузнецов </span>
<span>Попов </span>
<span>Соколов </span>
<span>Лебедев </span>
<span>Козлов </span>
<span>Новиков </span>
<span>Морозов </span>
<span>Петров
</span>2) кардиган
3) Не знаю, прости
4) Тоже не знаю)
5) Укроп
6) Не знаю
7)
<span> “О бедном гусаре замолвите слово”
8)</span><span>Царь персов Ксеркс пошел в V веке до н. э. войной на Грецию. Персы перебросили мосты через Гелеспонт-пролив, отделяющий Европу от Азии. Буря разметала эти мосты. Разъяренный деспот приказал высечь море цепями, наложить на него клеймо преступника и опустить в воду оковы, приговаривая: "Тебя, горькая вода, казнит владыка за то, что ты причинила ему пакет, не будучи обиженным им. Царь Ксеркс переступит через тебя, делаешь ты этого или нет". А царь Кир наказал "за плохое поведение" речку Гинда-в ее водовороте утонула лошадь царя. Разгневанный Кир повелел переломать реку 360 каналами, превратив реку в ручеек.
Всё, надеюсь помогла)))</span>
Диаграмма (тут надо написать еще что-нибудь , чтобы ответ засчитали)
Ось:
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a) else
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b) else
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
readln;
<span>end.
Не дуже розумію, навіщо ви написали рядок:"</span><span>writeln(maxlongint);</span>". Чи це залишилося від перевірки числового інтервалу даного типу?
