Program Bally;
var a:array[1..250] of string;
N,l,max,x,i,b,p:integer;
z,k:string;
begin
max:=0;
readln(N);
for i:=1 to N do readln(a[i]);
z:=a[1];
l:=Pos(' ',z); Delete(z,1,l);
l:=Pos(' ',z); Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); max:=max+x;
for i:=2 to N do begin
z:=a[i];
b:=0;
l:=Pos(' ',z); Delete(z,1,l);
l:=Pos(' ',z); Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); b:=b+x;
if b>max then max:=b;
end;
for i:=1 to N do begin
z:=a[i];
b:=0;
l:=Pos(' ',z);
p:=l;
Delete(z,1,l);
l:=Pos(' ',z); p:=p+l;
Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); b:=b+x;
if b=max then begin
z:=a[i];
delete(z,p,length(z)-p+1);
writeln(z);
end;
end;
end. Наверное так!!
<span><span>Windows – без обновления операционной системы, Вы и не почувствуете всех обновлений. Мы рекомендуем установить Windows 8, так как она выполнена по всем современным меркам.</span>
<span>Монитор – это первое на что мы обращаем внимание, сидя за компьютером, и чем он будет больше и красивее, тем больше положительных эмоций Вы получите от обновления ПК. Рекомендуем для этого прочесть статью: «Как выбрать монитор для компьютера». В подключении монитора думаем, что вопросов не возникнет.</span>
<span>Клавиатуру и мышь – какое же внешнее обновление компьютера без замены мышкиили клавиатуры?! Обязательно выберите себе новые манипуляторы!</span>
<span>Коробку системного блока – даже если у Вас нет денег (или желания) обновлять все комплектующие компьютера (например, и этими Вы довольно), то просто обновите коробку системного блока на современную. В этом случае все вокруг подумают, что Вы обновили своё ПК полностью! Если нет навыков сбора компьютера – доверьте это дело профессионалам, таким как на MasterServis24.RU!</span>
<span>Акустика – последним штрихом в создании нового образа компьютера будет новое звучание и новый вид колонок для компьютера, чтобы Вы не только видели обновленный компьютер, но и слышали его. Кстати колонки можно просто заменить новыми и хорошими наушниками для компьютера.</span></span>
Если Вас устраивает внешний вид ПК, а больше интересует скорость его работы, то Вам нужно выполнить обновление следующих деталей:
<span>
<span>Процессор – главная деталь всего компьютера, так как именно от мощности этого устройства зависит быстрота работы всей системы. Помните, что выбирать процессор для компьютера нужно правильно (о чём мы уже писали ранее).</span>
<span>Материнская плата – её нужно менять по нескольким причинам: во-первых, каждый из процессоров подходит только к определенным моделям «материнки». Во-вторых, Вам на материнской плате может не хватать слотов для дополнительного ОЗУ или второй видеокарты. О том, как выбрать материнскую плату мы писали ранее. Устанавливать её самостоятельно не советуем, лучше попросить о помощи.</span>
<span>Оперативное запоминающее устройство (ОЗУ) – его также следует обновлять, однако если не хватает денег, то лучше выбрать более мощный процессор, чем много ОЗУ, ведь память всегда можно добавить самостоятельно и даже не вызывая мастера.</span>
<span>Жесткий диск – скорости в работе компьютера он вряд ли прибавит (если только это не SSD диск), зато у Вас появиться масса свободного места для разных файлов. Перед тем, как купить жесткий диск, рекомендуем прочесть статью как его выбрать, а также как правильно устанавливать жесткий диск.</span>
<span>Видеокарта – обновлять её нужно только в том случае, если она вышла из строя (шумит, например) или Вы хотите играть в новые компьютерные игры, которые требуют более нового «железа».</span>
<span>Блок питания – о том, как выбрать блок питания мы писали совсем недавно, и его замена будет для Вас больше вынужденной, так как новые комплектующие устройства всегда более требовательны к энергии. Новый блок питания не даст сгореть компьютеру и обеспечит его стабильную работу.</span></span>
Program qq;
var a,b:integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if a>b then
writeln(b);
or
writeln(a);
end.
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное