Ошибка:
<span>CharMas1=array[A..Z] of integer;
Здесь используются неизвестное имя A и Z,которые,предварительно должны быть описаны в const,либо в var
</span>
<span>В) соответствует основанию системы счисления
Например, в десятичной системе счисления 10 цифр, в двоичной - две.</span>
Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
Program Primer;
var F:array [1..16] of integer; d, kch: integer;
begin
for d:=1 to 16 do read(F[d]);
kch:=0;
for d:=1 to 16 do
if (F[d] mod 2 = 0) then kch:=kch+1;
writeln(kch);
end.
Найдем растояние:
S=t*V
S=60*5=300;
Найдем V2
V2=60-10=50
Найдем T2:
T2=300/50=6 часам.