Составьте программу в pascal по следующему сценарию: при нажатии на клавишу а произвольном месте экрана появляется квадратик, при нажатии на клавишу - окружность.

sonys8412 sonys8412    3   06.06.2019 06:10    0

Ответы
Битсухатян Битсухатян  06.07.2020 13:49
Uses GraphABC;
var
  s:char;
  x,y,r:integer;
begin
readln(s);
x:=Random(100)+200;
y:=Random(100)+200;
r:=Random(100)+100;
if s='к' then DrawRectangle(x,y,x+r,y+r);
if s='о' then DrawCircle(x,y,r);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика