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

Question

Информатика

Кузьмич

18 августа, 20:45

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

+2

Ответы (1)

Знаете ответ на вопрос?

Викуша · Answer 1

Если нужна программа на паскале, то как-то так

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.