Uses GraphABC; var tnk:array of Point; begin Window.Title := 'Танк атакует'; var y := 200; Brush.Color := clGreen; LockDrawing; tnk:=new Point[4]; for var x := 70 to 500 do begin Window.Clear(clWhite); Rectangle(x,y,x+100,y+50); Rectangle(x-25,y+50,x+125,y+75); tnk[0].X:=x-45; tnk[0].Y:=y+75; tnk[1].X:=x-30; tnk[1].Y:=y+120; tnk[2].X:=x+100; tnk[2].Y:=y+120; tnk[3].X:=x+145; tnk[3].Y:=y+75; Rectangle(x+100,y+10,x+225,y+25); FillPolygon(tnk); Redraw; Sleep(3); end; end.
Информатика - наука об информации и автоматизации информационных процессов. Информация - это новости, новые факты, знания про объекты и явления окружающей среды. Компьютер - устройство или система выполнять заданную чётко определённую изменяемую последовательность операций. Файл - это упорядоченная совокупность данных на внешнем носителе которая имеет имя которое операционная система обрабатывает как единое целое. Текстовой редактор - это самостоятельная компьютерная программа или компонент программного комплекса. Графический редактор - это программа позволяющая создавать, просматривать, обрабатывать и редактировать цифровые изображения на компьютере.
x = int(input())
if x == 2:
print('28')
elif x == 4 or x == 6 or x == 9 or x == 11:
print('30')
else:
print('31')
Объяснение: