Нужно знать как задаётся эта заштрихованная область.
Например для окружности нужно что бы x^2+y^2<R где R радиус, x,y координаты точки.
В общем случае нужно что бы выполнялось неравенство при поставление в него координат заданных пользователем.
uses crt;
var i,min,s:integer;
a:array[1..60] of integer;
begin
s:=0;
for i:=1 to 60 do a[i]:=random(35)+1;
min:=a[1];
for i:=1 to 60 do if min > a[i] then min:=a[i];
for i:=1 to 60 do if a[i] = min then inc(s);
writeln(s,' books for price = ',min,' ru.');
end.
По вертикали:
1. Информация
По горизонтали:
1. Редактирование
2. Фрагмент
<span>3. Шрифт </span>
<span>4. Форматирование </span>
<span>5. Процессор</span>
<span>6. Документ </span>
<span>8. Центрирвание </span>
<span>9. Копирование</span>
Ответ:
var i:integer;
begin
for i:=2 to 120 do
if (i mod 2 = 0) and (i mod 7 = 0) then write (i,' ')
end.