Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Чтобы выражение было истинным, необходимо, чтобы
(х > 4) и ((х < 10) или (х < 13)) <span>были истинными одновременно.
Чтобы </span>((х < 10) или (х < 13)) было истинными, необходимо, чтобы либо (х < 10), либо <span><span>(х < 13) были истинными, либо оба одновременно. =>
13>x>4</span> => Всего 8 чисел (12, 11, 10, 9, 8, 7, 6, 5)
Можно проверить:
</span>(12 > 4) и ((12 < 10) или (12 < 13)) =1 и (0 или 1)=1и1=1
(11 > 4) и ((11 < 10) или (11 < 13)) =1 и (0 или 1)=1и1=1
(10 > 4) и ((10 < 10) или (10 < 13)) =1 и (0 или 1)=1и1=1
(9 > 4) и ((9 < 10) или (9 < 13)) =1 и (1 или 1)=1и1=1
(8 > 4) и ((8 < 10) или (8 < 13)) =1 и (1 или 1)=1и1=1
(7 > 4) и ((7 < 10) или (7 < 13)) =1 и (1 или 1)=1и1=1
<span>(6 > 4) и ((6< 10) или (6 < 13)) =1 и (1 или 1)=1и1=1</span>
<span>(5 > 4) и ((5 < 10) или (5 < 13)) =1 и (1 или 1)=1и1=1
Ответ: 8
</span>
Var x1,x2,y1,y2,a,b,s,p: real;
begin
write('Введите x1: ');
readln(x1);
write('Введите y1: ');
readln(y1);
write('Введите x2: ');
readln(x2);
write('Введите y2: ');
readln(y2);
a:= abs(x2-x1);
b:= abs(y2-y1);
p:=2*(a+b);
s:=a*b;
writeln('Периметр прямоугольника: ', P);
writeln('Площадь прямоугольника: ', S);
end.
Ну кодирование-декодирование!?
Может поймете, изначально А берется за 1 путь а потом по стрелочкам)суммируются значения стрелок
