Вопрос школьника по предмету Информатика
Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b. Написать блок схему и программу на языке Паскаль
Pascal
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
3/4
9/24
5/10
Решите все пожалуйста
1)On Thrusday Peter has got English, History and Math.
2)Yesterday Carol and Jane went to the swimming pool.
3)The boys are hiding under Tom’s bed.
4)The telephone is ringing.