Надо рассмотреть координату точки на предмет больше или меньше нуля x,y
Если x>0 и y > 0 то 1 четверть
Если x<0 и y > 0 то 2 четверть
Если x<0 и y <0 то 3 четверть
Если x>0 и y < 0 то 4 четверть
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число(); Вывод.Цепь("^");
ЕСЛИ
число ДЕЛИТЬ 1000 < число ДЕЛИТЬ 100 ОСТАТОК 10 И
число ДЕЛИТЬ 100 ОСТАТОК 10 < число ДЕЛИТЬ 10 ОСТАТОК 10 И
число ДЕЛИТЬ 10 ОСТАТОК 10 < число ОСТАТОК 10
ТО
Вывод.Цепь("труе")
ИНАЧЕ
Вывод.Цепь("фалсе")
КОН
КОН Задание.
Относится к прикладному программному обеспечению
Var a, b, i, c :integer;
begin
<span> read (a, b); </span>// вводим a и b
for i:=1 to 5 do
begin
<span> c:=random(b-a)+a; </span>// присваиваем рандомные числа в заданномпромежутке
<span> writeln (c); </span>// выводим число
end;
<span>end.</span>
декларативные и процедурные