По имеющимся описаниям восстановите рисунок: установить 60, 2, линия к 20, 60, линия к 180, 60, линия 140, 20, линия к 60, 20, прямоугольник 60, 80, 100, 60, прямоугольник 60, 80, 60, 100, прямоугольник 100, 120, 150, 60, окружность 140, 40, 10

если за одну клетку брать10,то: на векторе х отсчитываем 6 клеток на векторе у 2 клетки и ставим точку далее на х отсчитываем 2 клетки на у 6 клеток и проводим линию,на х18 клеток на у 6 клеток находим точку и проводим линию,на х14 клеток на у 2клетки,прямоугольник: на х 6 клеток на у 8 клеток находим точку и ставим её-это верхний левый угол далее на х 10 клеток на у 6 клеток ставим точку-это правый нижний угол и чертим прямоугольник; далее на х6 клеток на у 8 клеток на х 6 клеток на у 10 клеток чертим прямоугольник: на х10 клеток на у 12 клеток  на х15 клеток на у 6 клеток чертим прямоугольник,окружность на х 14 клеток на у 4 клетки находим точку далее на циркуле ставим радиус в 1 клетку и чертим окружность.всё.

program zz1;

var a:integer; // задаем переменную целого типа

n, b, c:real;// задаем переменные не целого типа

begin

write(' введите заданную величину а '); // вводим с клавиатуры число

read(a);

n:= a / 1024; // переводим объем информации в килобайты

b:= (a / 1024) / 1024; // переводим объем информации в мегабайты

c:= ((a / 1024) / 1024) / 1024; // переводим объем информации в гигабайты

writeln(' объем информации в килобайтах = ', n); // выводим ответ

writeln(' объем информации в мегабайтах = ', b);

write(' объем информации в гигабайтах = ', c);

end.

на печать?) я не знаю языка программирования который печатает вывод... короче держи паскаль :

var

begin

readln(n);

if n=1 then begin writeln(31); exit; end;

if n=2 then begin writeln(28); exit; end;

if n=3 then begin writeln(31); exit; end;

if n=4 then begin writeln(30); exit; end;

if n=5 then begin writeln(31); exit; end;

if n=6 then begin writeln(30); exit; end;

if n=7 then begin writeln(31); exit; end;

if n=8 then begin writeln(31); exit; end;

if n=9 then begin writeln(30); exit; end;

if n=10 then begin writeln(31); exit; end;

if n=11 then begin writeln(30); exit; end;

if n=12 then begin writeln(31); exit; end;

Объяснение:

дай лучший ответ