//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>
<span>100011011101 = 2269. Изначально число уже в двоичной системе</span>
Var name, verb, abjective, noun, adverb: string;
begin
write('Введите ваше имя: ');
readln(name);
write('Хорошо, ', name, ', а теперь введите любое существительное: ');
readln(noun);
write('А теперь прилагательное: ');
readln(abjective);
write(name, ', введите наречие: ');
readln(adverb);
write('И последнее слово - глагол: ');
readln(verb);
writeln;
writeln(abjective, ' летом ', noun, ' ', adverb, ' ', verb, ' около речки.' );
<span>end.</span>
Тут описано - http://edufuture.biz/index.php?title=Об%27єкти_та_операції_над_ними
А33 это оно. и b)7. правильный b)7