Прости,но не мог бы ты написать вопрос на русском языке,а то так не смогу помочь(
Все умножается на 4.Дальше сама подумай.
Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>
Вес файла = 100*120 = 12000 байт = 96000 бит
25 кбит = 25600 бит
96000 / 25600 = 3,75 с