<em>PascalABC.NET 3.2</em>

uses GraphABC;

begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.

0 0

4 года назад

помогите пожалуйста решить задачу в КуМИРе, "Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом

ilwheel [14]

примерный код, т.к. на кумире писала последний раз год назад где-то, подкорректируйте ввод и лесенку

цел а

ввод а

если a mod 10 = 5 , 6, 7, 8, 9 или a mod 100 = 11 12, 13, 14, 15, ..., 19 то

вывод "лет"

иначе

если a mod 10 = 2 3,4 то

вывод "года"

иначе

если a mod 10 = 1 то

вывод "год"

0 0

3 года назад