Определите имена пустых парковочных мест,
если park[2,5]=’желтая машина’.

https://resh. edu. ru/uploads/lesson_extract/2017-09-0 5_m-3-11750/3064/616/OEBPS/objects/ b000011/l_8.png

park[4,2]

park[2,4]

park[3,2]

park[2,6]

park[1,6]

park[2,1]

park[2,3]

park[1,5]

park[2,7]

park[1,2]

park[2,2]

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

в книге 1 верное

а 99 неверных решений

  в этой книге ровно 99-ть неверных утверждений.

uses  crt;

var  x,y: real;

n: integer;

begin

clrscr;

writeln('введите координаты точки: ');

readln(x,y);

if(x=0)and(y< > 0) then write('точка попала на ось y')

else if (x< > 0)and(y=0) then write('точка попала на ось х')

else

begin

  else  if  (x> 0)and(y> 0)then  n: =1

  else  if  (x< 0)and(y> 0)  then  n: =2   

  else  if  (x< 0)and(y< 0)  then  n: =3     

  else  if(x> 0)and(y< 0)  then  n: =4

  write('n=',n);  

  end;  

  readln  end.

var x, y: integer;

beginwriteln('введите два числа'); readln(x,y);  

while (x< > 0) and (y< > 0) do beginif x> y then x: =x mod yelse y: =y mod x; end; writeln('нод=', x+y);   end.