Регистрация
kydaxtaxtax
02.12.2021 06:47
Информатика
Есть ответ 👍

с информатикой. Составить БЛОК-Схему и написать программу.

185
198
Посмотреть ответы 2

Ответы на вопрос:

2116121056
2116121056
4,4(87 оценок)

Задача 1

var

 x1, y1, x2, y2, l: real;

begin

 Writeln('Введите значения (x1,y1,x2,y2)');

 Read(x1, y1, x2, y2);

 l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));

 Writeln('Расстояние: ', l:3:2);

end.

Тестовое решение:

Введите значения (x1,y1,x2,y2)

2 3 4 5

Расстояние: 2.83

Задача 2

var

 a, b, c, p, s: real;

begin

 Writeln('Введите ABC');

 Read(a, b, c);

 P := (a + b + c)/2;

 S := Sqrt(p * (p - a) * (p - b) * (p - c));

 Writeln('Площадь по Герону: ', S:3:2);

end.

Тестовое решение:

Введите ABC

2 3 4

Площадь по Герону: 2.90

Мага77711
Мага77711
4,4(55 оценок)

t=503*1024*8/36925=111

Объяснение:

Популярно: Информатика