Question

составьте программу которая вводит цифру 1 или 2 и рисует круг, если введена 1 или рисует квадрат, если введена 2, с помощью оператора ветвления и курса 8 класса,
---------------------------------------100 Баллов--------------------------------------------​

Answer 1

Ответ:

program z;

uses GraphABC;

var k: integer;

begin

SetPenWidth(3);

SetFontSize(31);

read (k);

write ('Введено: ');

write (k);

if k = 1 then Circle(320,240,100);

if k = 2 then Rectangle(220,140,420,340)

end.