var x1,x2,x3,y1,y2,y3:real;
begin
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi');
end.
Правильный ответ под номером 1
VAR
n,max:LongInt;
BEGIN
WriteLn('Введите трехзначное число:');
ReadLn(n);
max:=0;
Repeat
If (n mod 100)>max then max:=(n mod 100);
n:=n div 100;
Until n=0;
WriteLn('Самое большое число в трехзначном числе: ',max);
Readln;
END.
Ответ:
ответ 344(8)
Объяснение:
15(10) * 16(10) + 4(10) = 244(10) = 11110100(2)
D8(16) = 216(10) = 11011000(2)
344(8) = 228(10) = 11100100(2)
11100001(2) = 225(10)