РЕШИТЕ ЗАДАЧА ПО Pascal ABC (нужна блок-схема и сама программа).

Задача.

Если точка с координатами (х, y) лежит в первой координатной четверти, то найти расстояние от этой точки до начала координат, иначе вывести сообщение "Точка не лежит в первой четверти".

1.Точка лежит в первой четверти, когда и абссциса, и координата точки больше нуля.

2.Формула для нахождения расстояния от точки до начала координат d:=sqrt(sqr(x)+sqr(y)).

3. Программу тестировать 4 раза:точка с координатами (х, у) лежит в 1,2,3 и 4 четверти.

т.д.

1)

высказывание   не (не  а  и  b)  будет ложным когда высказывание

(не  а  и  b)   будет истинным, оно в свою очередь будет истинным когда

будут истинны одновременно высказывание  не  а  и   высказывание  b

то есть когда а ложное а в истинное

2)

число 376 трехзначное и четное

а=число 376 трехзначное

в=число 376 четное

а и в

или

если сумма цифр числа делится на 3, то число делится  на  3

а=сумма цифр числа делится на 3

в=число делится  на  3

если а то в

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт