Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Так сделано для того чтобы было легко передать эти файлы
program xxx;
var a, b, c, p, s : real;
begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s: =(a*b)/2;
writeln('площадь треугольника =', s);
c: =sqrt(sqr(a)+sqr(b));
p: = a+ b + c;
writeln('периметр треугольника =', p);
end.
для pascal abc
uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.
Популярные вопросы