Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
var x1,x2,x3,x4,x5: integer;
s: real;
read(x1,x2,x3,x4,x5);
s: = (x1+x2+x3)/(x4+x5);
if round(s)=s then writeln("celoe - "s);
а необходимо
б достаточно
в необходимо
г достаточно
д необходимо и достаточно
пион-пониадрес-средалапа-апалполучить-поучить карета-ракета
каприз-приказ
калоша-ладошка
мошкара-рамашка
Популярные вопросы