Нарисовать блок-схему для var x,y,r,h: real;
begin
    write('координаты точки: ');
    readln(x,y);
    write('радиус круга: ');
    readln(r);
    h := sqrt(x*x + y*y);
    if h > r then writeln('Точка не принадлежит кругу')
    else writeln('Точка принадлежит кругу');
end.​

Jions    1   08.02.2021 17:27    0