Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pryam;
var y1, y2, y3, x1, x2 : real;
begin
writeln ('введите координату (у) верхней точки прямой');
readln (y1);
writeln ('введите координату (у) нижней точки прямой');
readln (y2);
writeln ('введите координату (х) точек-концов прямой');
readln (x1);
writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');
readln (y3);
writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');
readln (x2);
if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')
else writeln (' не принадлежит ');
readln;
end.
n = 21 (результат измерений от 10 до 30)
n = 2^i
2^i = 21
i = 5 бит
27 * 5 = 135 бит
ответ. 135 бит
program xxx;
var i, s : integer;
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
из всех монет в меньшей стороне всегда присутствует v6,
в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных
Популярные вопросы