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
9.Определите значение переменной a после выполнения фрагмента программы:
a:=10;
b:=3;
if a > b then b:=b+12//а больше б, значит к б прибавим 12 и получим что б 21
else a:=a-7;//а это игнорим
if a > b then a:=a+12//теперь а не больше б(б21 а а 10), так что к а прибавим 12, получаем а 22
else a:=a-7;// а это игнорим
А = 22.
11.Определите что будет напечатано в результате работы следующей программы.
Var k,i: integer;
Begin
k :=4;/к равно 4
For i := 1 to 3 do//следующая строка повториться 3 раза, а и при этом будет меняться от 1 до 3
k := 2*k +i;
// При и равном 1 к станет 9
// При и равном 2 к станет 20
// При и равном 3 к станет 43
Writeln(k);// выведет 43
end.
ответ 43
12.Определите что будет напечатано в результате работы следующей программы.
Var s,i: integer;
Begin
s :=3;
For i := 2 to 5 do// и будет меняться от 2 до 5
s := s+2*i
//К с будет прибавляется 2i т.е. сперва 3;7;13;21;31
Writeln(s) ;//31
end
ответ:31
13.Определите что будет напечатано в результате работы следующей программы.
Var s,n: integer;
Begin
s :=1;
For n := 3 to 8 do//повториться 6 раз
s := s*2// каждый раз s увеличивается вдвое, т.е.это 2 в 6 степени
write(s) ;
end.
ответ:64
14.Чему будет равно значение переменной а после выполнения этого цикла?
i:=4;
a:=12;
while i<6 do begin//по сути он повторится 2 раза, а и будет принимать значение от 4 до 5
a:=a+i;//а увеличиваем на и: сперва это 16, потом 21
i:=i+1
end.
ответ:21