ЛЮБОЙ ЯЗЫК Эрка и Нуар — два соседствующих города Белфаста и Примула. Эти два государства не любят друг друга, поэтому воюют, но не хотят кровопролитий, поэтому кидают огромные камни в соседние города с катапульт.
В городе Эрка a катапульт, в городе Нуар — b катапульт. Битва ведется так. Каждую минуту катапульты стреляют в соседний город. Если в конце минуты оказалось, что один город выпустил суммарно на k больше камней, чем другой, то этот город считается выигравшим битву.
Ваша задача — по данным числам a, b и k выяснить, кто выиграет битву, и через сколько минут это произойдет.
Входные данные
В первой строке ввода заданы числа a, b и k (1≤a,b,k≤1000).
Выходные данные
Выведите:
Erka x, если победила Эрка через x ходов,
Nyar x, если победил Нуар через x ходов,
Draw!, если никто не сможет победить в такой битве.
Примеры
входные данные
4 5 2
выходные данные
Nyar 2
входные данные
7 4 20
выходные данные
Erka 7
входные данные
10 10 1
выходные данные
Draw!
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.