1. Петрик, Марічка та Оленка отримали перші оцінки з інформатики. Вони придумали наступну задачу — у кого найвища оцінка, той перемагає.
Дану задачу вони дали Сергію. На жаль, Сергій зайнятий, тому до іть йому розв'язувати дану задачу.
Входные данные
Перший рядок містить три цілі числа p, m, o (1≤p,m,o≤12) — оцінки Петрика, Марічки та Оленки відповідно.
Гарантується, що всі числа різні між собою.
Выходные данные
Виведіть «Petryk», якщо у Петрика найвища оцінка серед усіх, «Marichka», якщо у Марічки найвища оцінка серед усіх, або виведіть «Olenka», якщо найвища оцінка в Оленки.
Примеры
Ниже вы найдете примеры входных данных и ответов, которые должна вывести ваша программа.
Входные данные №1
8 10 12
ответ №1
Olenka
Входные данные №2
7 9 3
ответ №2
Marichka
2.Пете скучно решать простенькие задачки, где нужно находить сумму двух чисел, поэтому его преподавательница программирования дала сложную задачу,
которая звучит следующим образом:
Заданы три целых числа a, b и c. Следует определить, существует ли такое число среди них, что оно равно сумме двух других чисел.
Входные данные
Первая строка содержит три целых числа a, b и c (0≤a,b,c≤100).
Выходные данные
Выведите «Yes», если такое число существует, иначе выведите «No» (без кавычек).
Примеры
Ниже вы найдете примеры входных данных и ответов, которые должна вывести ваша программа.
Входные данные №1
0 3 3
ответ №1
Yes
Входные данные №2
1 10 15
ответ №2
No
Входные данные №3
12 20 8
ответ №3
Yes
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
a.Cols.Select(x->Format('{0,5}',x.Where(y->y<0).Sum)).Print('');
Println(' - суммы отрицательных');
end.
Пример
Количество строк в массиве: 5
Количество колонок в массиве: 9
*** Исходный массив [5,9] ***
-43 -96 34 82 3 92 -59 31 35
65 94 76 66 90 -39 26 -24 83
73 -92 94 -94 44 -35 -66 87 -46
90 56 -37 -60 -9 94 9 -76 -58
-16 97 65 -21 -86 64 -20 46 -26
-59 -188 -37 -175 -95 -74 -145 -100 -130 - суммы отрицательных
var
i, j: integer;
ar: array[1..10]of integer;
b: boolean;
label l1;
begin
b := false;
for i := 1 to 10 do ar[i] := random(10, 300);
l1:
b := false;
for i := 1 to 10 do
for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
then
begin
b := true;
ar[i] := random(30, 300);
end;
if b = true then goto l1;
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
randomize;
lockdrawing;
pen.Width := 5;
for i := 1 to 10 do
begin
pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]);
redraw;
end;
end.