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

Question

Информатика

Любуша

23 февраля, 00:22

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

+5

Ответы (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.