Cls
input a
b=a>=10 and a<=99
print b
1)64х бит=128 байт
х=128:64
х=2
Ответ:х=2
//Pascal ABC.NET 3.1 сборка 1219
Var
x1,x2,x3,y1,y2,y3:integer;
p1,p2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
p1:=(y3-y1)/(y2-y1);
p2:=(x3-x1)/(x2-x1);
if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.
Пример ввода:
1
1
2
2
3
3
Пример вывода:
<span>На одной прямой</span>
Самые удаленные города это города А и Б, самая короткая дорога до них это через АЕС и будет равна она 17
Для наилёгкого поиска нужного сайта