написать программу на Паскале.Заданы длины двух катетов в прямоугольном треугольнике.Найти длину гипотенузы,площадь треугольника.
10-11 класс
|
program w;
var a,b,c,s:real;
begin
writeln('Введите a,b');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=(a*b)/2;
writeln('Гипотенуза:');
writeln(c:4:2);
writeln('Площадь:');
writeln(s:4:2);
end.
Другие вопросы из категории
1Кбайт
0,5мегабайта
1,5килобайта
1,5мегабайта
арифметическое среди положительных элементов матрицы, находящихся на
главной и побочной диагоналях. Выдать сообщение, если таких элементов нет.
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.