4 года назад

Создайте алгоритм нахождения площади прямоугольного триугольника и оформите его в виде блок схемы

Знания

Информатика

1 ответ:

Val1231234 года назад

0 0

Var
a,b,c,S,P;
begin
writeln ('Введите А ');
readln (a);
writeln ('Введите B ');
readln (b);
c:=<span>sqrt(a*a+b*b);</span>
P:=a+b+c;
writeln ('Площадь треугольника равна --> ',P);
end.

Читайте также

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Фрактал Кривая дракона представляет собой геометрическую фигуру, которая строится следующим образом: на п

aborigen

Буду обозначать поворот вектора на 90 градусов звёздочкой: если a = (x, y), то a* = (y, -x)

Обозначим вектор, соединяющий начало координат и конечную точку на i-м шаге, как v[i]. Заметим, что v[i + 1] = v[i] + v[i]*.

v[1] = (0, 1)
v[2] = (0, 1) + (1, 0) = (1, 1)
v[3] = (1, 1) + (1, -1) = (2, 0)
v[4] = (2, 0) + (0, -2) = (2, -2)
v[5] = (2, -2) + (-2, -2) = (0, -4)
v[6] = (0, -4) + (-4, 0) = (-4, -4)

Ответ: (-4, -4)

0 0

4 года назад

Дан случайный массив из N чисел, лежащих в промежутке [-15;15]. Выписать из него все четные числа, подсчитать их количество. Есл

KamMeliqyan

//PascalABC.NET
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15);
if a[i] mod 2 = 0 then begin
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol <> 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных элементов нет');
<span>end.</span>

0 0

3 года назад

нужно заменить в исходном слове одну букву на другую так,чтобы получившееся слово было существительным в именительном падеже.При

Белка4

Бег- Бес
Миг- Мис- Мир- Сир
Бант- Бинт
Шар- Шаг
Муха- Мука
Рак- Мак
Век- Вес
Коса-Роса
Куб- Дуб
Слон- Клон

0 0

4 года назад

Запиши название обратного алгоритма и допиши его камандыПРИВЕДИ БРЮКИ В ПОРЯДОК1начало2возьми брюки3намочи4выстирай5высуши6зашей

OlegGur

Легко
1. Начало
2. Возьми брюки
3. Сомни брюки
4. Проколи
5. Намочи
6. Замарай
7. Высуш
8. Кинь брюки
9. Конец
Спасибо и лайк если правильно ок?

0 0

3 года назад

Ввести с клавиатуры 10 чисел и найти сумму отрицательных чисел.(Паскаль)

zver234

Var i,k,s:integer;
begin
writeln ('Введи 10 чисел');
for i:=1 to 10 do
begin
readln (k);
if k<0 then s:=s+k;
end;
writeln (s);
end.

0 0

4 года назад