Введите с клавиатуры положительные переменные c и d. Если c>d, то нарисуйте окружность с центром в точке (c,c) и радиусом, равным d. Иначе нарисуйте отрезок с концами в точках (100,с) и (100,d).

1

Ответы и объяснения

  • Segrif
  • почетный грамотей
2013-10-29T15:35:21+00:00
Если нужна программа на паскале, то как-то так
uses graphabc;
var c,d:integer;
begin
read(c,d);
if c>d then circle(c,c,d) else line(100,c,100,d)
end.