Вводятся координаты x y множество точек,последними вводятся значения x=0 y=0. определить,сколько точек будет расположено во второй четверти( написать программу для паскаля)
Var q: Single; // Результат. Если число будет больше, то указать Double i: Single; // Число из которого необходимо получить результат. Если число будет больше, то указать Double p: Single; // Процент. Если процент будет всегда целым числом, то указать Byte begin writeln('Введите число => '); read(i); writeln('Введите процент, который хотите расcчитать из введенного числа => '); read(p); while p < 0 do begin writeln('Процент не может быть меньше нуля, введите новое значение => '); read(p); end; q:=(i / 100) * p; writeln('Ваш результат из числа => ', i, ', ', p, '% = ', q); end.
С 1965 года нам известно о так называемом законе Мура: «Количество транзисторов, размещаемых на кристалле интегральной схемы, удваивается каждые 24 месяца, что приводит к появлению новых технологий, росту производительности и прорывам в области электроники». Излагая этот закон общественности, один из отцов Intel не мог предположить, что инженеры на протяжении целых пятидесяти лет смогут придерживаться его. Не мог он и предположить, что в 2014 году сложности с соблюдением этого закона начнутся и в самой компании Intel. Ведь для увеличения количества транзисторов в процессоре нужно уменьшать технический процесс производства. По-простому, уменьшать физический размер транзисторов и увеличивать их плотность.
var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.