Вводятся координаты x y множество точек,последними вводятся значения x=0 y=0. определить,сколько точек будет расположено во второй четверти( написать программу для паскаля)
187
370
Ответы на вопрос:
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.
Популярно: Информатика
-
Камелек15.04.2021 08:09
-
HETHEDAM20.01.2023 00:03
-
Фикус0421.02.2021 02:39
-
андрей214912.07.2021 23:21
-
Ярослав1234567813.06.2022 19:30
-
Kobrasmary08.08.2022 18:19
-
Floren25510.01.2020 14:03
-
VikiNiki2309.07.2022 18:30
-
virakudleychuk01.07.2022 07:22
-
ирка13709.10.2022 21:02