2400b * 600 = <span>1440000b = </span><span>180000B > 1,44Mb
нельзя</span>
Пусть чертежник изначально стоял в точке (0;0).
Выполняем алгоритм:
сместиться на(-3;-6) - чертежник будет в точке (-3;-6)
Дальше идет цикл, выполняющийся три раза.
Пусть команда1 будет такой: сместиться на(x;y).
Тогда за один проход цикла чертежник будет в точке (x+2+3;y-5+3)=(x+5;y-2)
За три прохода цикла чертежник будет в точке (3(x+5);3(y-2))=(3x+15;3y-6)
и не забываем, что до цикла, чертежник был в точке (-3;-6):
(3x+15-3;3y-6-6)=(3x+12;3y-12)
И теперь ему надо вернуться в исходную точку, т.е в точку (0;0).
3x+12=0
3x=-12
x=-4
3y-12=0
3y=12
y=4
При x=-4 и y=4 чертежник из точки (3x+12;3y-12) попадет в точку (0;0).
Ответ: 4) Сместиться на (-4;4)
Скажите пожалуйста, какой вам нужен паскаль. Сразу же - я пишу на delphi
Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' баллов');
end.
Пример:
<span>Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал 18 баллов</span>