Angel157

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Angel157

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

SerGrey сказал(а):
ты копируешь? там нужно строку вначале добавить еще , типо "programm name"
Нажмите, чтобы раскрыть...

блин, точно

SerGrey

Пользователь

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

SerGrey

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

Angel157 сказал(а):
блин, точно
Нажмите, чтобы раскрыть...

одна m, у тебя что ошибка компиляции? эта проблема у всех вроде

PHYSICIST_

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

PHYSICIST_

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Кто уже проверял ответы по физике, какие правильные?

Teofelts

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

Teofelts

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

var
....N, max_k, min_p: integer;
....k, p: integer;
....name, winner :string;

begin
........readln(N);
........max_k := -1;
........min_p := 5001;
........for var i:= 1 to N do
........begin
........readln(name);
........readln(k, p);
........if (k > max_k) then
........begin
............max_k := k;
............min_p := p;
............winner := name;
........end
........else if (k = max_k) then
........begin
........if ( p < min_p) then
............begin
................winner := name;
................min_p := p;
............end;
........end;
....end;
....writeln(winner)
end.
Angel157 сказал(а):
паскаль, причем там два варианта и пробовала оба
Нажмите, чтобы раскрыть...

SerGrey

Пользователь

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

SerGrey

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

PHYSICIST_ сказал(а):
Кто уже проверял ответы по физике, какие правильные?
Нажмите, чтобы раскрыть...

1) 18
2) 1.5
3) 20
4) 100
5) -

PHYSICIST_

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

PHYSICIST_

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

SerGrey сказал(а):
1) 18
2) 1.5
3) 20
4) 100
5) -
Нажмите, чтобы раскрыть...

Благодарочка. Неплохой гайд

lasyoko

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

lasyoko

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

объясните решение 1 и 4 по физике, пожалуйста

SerGrey

Пользователь

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

SerGrey

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

lasyoko сказал(а):
объясните решение 1 и 4 по физике, пожалуйста
Нажмите, чтобы раскрыть...

зачем тебе решение? я сомневаюсь что ты поймешь мои каракули
Спойлер: "физика 1"

o_CgHMowuGs.jpg

Teofelts

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

Teofelts

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

SerGrey сказал(а):
зачем тебе решение? я сомневаюсь что ты поймешь мои каракули
Спойлер: "физика 1"

o_CgHMowuGs.jpg

Нажмите, чтобы раскрыть...

Да по рисунку всё, впринципе, очевидно

КроваваяМэри

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

КроваваяМэри

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

напишите еще раз, правильно 3 задачу по инфе, пожалуйста

SerGrey

Пользователь

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

SerGrey

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

КроваваяМэри сказал(а):
напишите еще раз, правильно 3 задачу по инфе, пожалуйста
Нажмите, чтобы раскрыть...

на 8 странице смотрите

Teofelts

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

Teofelts

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

КроваваяМэри сказал(а):
напишите еще раз, правильно 3 задачу по инфе, пожалуйста
Нажмите, чтобы раскрыть...

var
....N, max_k, min_p: integer;
....k, p: integer;
....name, winner :string;

begin
........readln(N);
........max_k := -1;
........min_p := 5001;
........for var i:= 1 to N do
........begin
........readln(name);
........readln(k, p);
........if (k > max_k) then
........begin
............max_k := k;
............min_p := p;
............winner := name;
........end
........else if (k = max_k) then
........begin
........if ( p < min_p) then
............begin
................winner := name;
................min_p := p;
............end;
........end;
....end;
....writeln(winner)
end.

КроваваяМэри

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

КроваваяМэри

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

спасибо)

Zloyfenics

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Zloyfenics

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

кто решил 5 игформатика???

NIKITAnIkItA228

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

NIKITAnIkItA228

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

за неё написали ОК язык PascalABC3.1.
var n,i,a,b,max,prev:integer;

name:array[1..100] of string;

tree:array[1..100] of integer;

hit:array[1..100] of integer;

w:array[1..100] of integer;
begin

readln(n);

b:=1;

a:=1;

for i:=1 to n do

begin


readln(name);


read(tree);


if(tree>max) then


max:=tree;


readln(hit);

end;

prev:=200000;

for i:=1 to 100 do

begin


if((tree = max) and (hit

begin



prev:=hit;



b:=i;


end;

end;

writeln(name);
end.

SerGrey

Пользователь

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

SerGrey

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

Zloyfenics сказал(а):
кто решил 5 игформатика???
Нажмите, чтобы раскрыть...

пока только ректор мфти

Zloyfenics

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Zloyfenics

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

это 3 а 5 кто решил?

Zloyfenics

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Zloyfenics

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

SerGrey сказал(а):
пока только ректор мфти
Нажмите, чтобы раскрыть...

ну пришли плиз)

Teofelts

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

Teofelts

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

NIKITAnIkItA228 сказал(а):
за неё написали ОК язык PascalABC3.1.
var n,i,a,b,max,prev:integer;

name:array[1..100] of string;

tree:array[1..100] of integer;

hit:array[1..100] of integer;

w:array[1..100] of integer;
begin

readln(n);

b:=1;

a:=1;

for i:=1 to n do

begin


readln(name);


read(tree);


if(tree>max) then


max:=tree;


readln(hit);

end;

prev:=200000;

for i:=1 to 100 do

begin


if((tree = max) and (hit

begin



prev:=hit;



b:=i;


end;

end;

writeln(name);
end.
Нажмите, чтобы раскрыть...

Это третий?

Zloyfenics

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Zloyfenics

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Teofelts сказал(а):
Это третий?
Нажмите, чтобы раскрыть...

да

Mr_Fantomase

Пользователь

Регистрация: 10.05.2015

Сообщения: 0

Рейтинг: 0

Mr_Fantomase

Регистрация: 10.05.2015

Сообщения: 0

Рейтинг: 0

Кто нибудь физику 5 сделал?

Teofelts

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

Teofelts

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 1

SerGrey сказал(а):
пока только ректор мфти
Нажмите, чтобы раскрыть...

А где можно взять авторские решения?

КроваваяМэри

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

КроваваяМэри

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

а 5 по физике кто-нибудь решил?

SerGrey

Пользователь

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

SerGrey

Регистрация: 03.11.2013

Сообщения: 172

Рейтинг: 43

Teofelts сказал(а):
А где можно взять авторские решения?
Нажмите, чтобы раскрыть...

ну эт я так пошутил, видимо неудачно

Zloyfenics

Пользователь

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

Zloyfenics

Регистрация: 12.02.2017

Сообщения: 0

Рейтинг: 0

ну кто 5 решил и по физике и информатике?