На птицефабрику привезли корм, которого хватило бы уткам на 30 дней, а гусям - на 45 дней. Рассчитайте, на сколько дней хватит привезенного корма и уткам, и гусям вместе

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. Наверное так!!

У меня на рабочем столе стоит компьютер

:на рабочем столе должен быть порядок без всяких лишних вещей

на столе токо компьютер клавиатура и мышка

Клавиатура:это прямоугольный предмет который писать буквы на экране (на мониторе)

Мышка:это овальный предмет который передвегать предметы(на мониторе) или нажимать на них

На рабочем столе не должно быть еды и воды

потому что может произойти замыкание в предметах (клавиатура и мышь) и они не будут работать

От компьютера человек должен сидеть около 60-80 см от компьютера

Стул должен обезательно быть с упорой для спины

Компьютер должен стоять у стены и не, и не забыть про установку НЕ ЗАБУДЬТЕ проверить как компьютер установлен при не правильной установки компьютер может работать не правильно