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.
Апельсин - цитрусовое.
Самый известный факт об апельсинах, что они богаты витамином С. Сто грамм этого цитруса могут обеспечить более чем 80% рекомендованной ежедневной нормы этого витамина для человека.
А еще в апельсинах содержатся различные антиоксиданты, которые предотвращать рак, бороться с болезнями сердца, снижать повышенное артериальное давление и уровень холестерина в крови.
Апельсин не только красивый и яркий фрукт, но также он очень вкусен и полезен для здоровья. Регулярно употребляйте апельсины в пищу, и тогда у Вас всегда будет прекрасное настроение и отличное самочувствие.
begin
Readln(n);
Readln(m);
for i:=n to m do
if i mod 2 = 0 then
begin
write(i,' ');
readln;
end;
end.