type cl = class
a: integer;
constructor create(b: integer);
procedure setval(b: integer);
function getval: integer;
procedure sq;
end;
constructor cl.create(b: integer);
begin
a : = b;
end;
procedure cl.setval(b: integer);
begin
a : = b;
end;
function cl.getval: integer;
begin
getval : = a;
end;
procedure cl.sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('error');
end;
var
obj: cl;
a : integer;
begin
write('a = ');
readln(a);
obj : = cl.create(a);
obj.sq;
readln;
obj.destroy;
end.
Три друга, Асхат, Эльдар и Айжан, решили сыграть одну интересную игру. Игра называется “Второй максимум”. Правило игры заключается в следующием. Каждый из игроков записывает число на бумаге не показывая другим. После этого они раскрывают какие числа написали. Побеждает тот кто написал второй максимум. При этом гарантируется что все числа различны.
Вводные данные: На первой строке даны 3 числа x, y, z (1 ≤ x, y, z ≤ 10^9). х число загадавший Асхат. у число загадавший Эльдар. z число загадавшая Айжан.
Выходные данные: Вывести Askhat если победил Асхат. Вывести Eldar если победил Эльдар. Вывести Aizhan если победила Айжан.
Пояснение Примера 1: Победил Эльдар по скольку он загадал число 2, которое больше числа 1 который загадал Асхат и меньше числа 3 которую загадала Айжан.
заранее
16с.
Общее количество символов в документе k=30*50*70=105000
Информационный объем одного символа i=1 байт, или 1*8=8 бит
Информационный объем всего документа I=i*k=8 *105000= 840000 бит
Время передачи информации t=I/v= 840000/52500= 16 сек.
Объяснение: