Pascal 2 задачи.

[p0weR]

Пожалуйста, помогите решить задачи.

1. Ввести сумму денег(в рублях), и чтобы писало, сколько там по 5 рублей, по 2 рубля и по 10 рублей.

Пример: 50 рублей: 10 по 5, 25 по 2, и 5 по 10.

2. Дан график, на нем есть треугольник. На оси Х есть точки х1, х2, х3. На оси У есть точки у1, у2, у3. Найти периметр.

Спасибо.

[Летучий_СкилетиК]

1. Ввести сумму денег(в рублях), и чтобы писало, сколько там по 5 рублей, по 2 рубля и по 10 рублей.

var r:integer;
begin
read(r);
writeln('10 -',r div 10);
writeln('5 -',r div 5);
writeln('2 -',r div 2);
end.

[Летучий_СкилетиК]

Дан график, на нем есть треугольник. На оси Х есть точки х1, х2, х3. На оси У есть точки у1, у2, у3. Найти периметр.

var
   x1,y1,x2,y2,x3,y3:integer;
   a,b,c:real;
begin
read(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
writeln(a+b+c);
end.

[Serge_Bliznykov]

как я понимаю, играем в игру под названием ДежаВю...

вот Ваша такая же тема:
http://www.programmersforum.ru/showthread.php?t=140519

эту закрываю!