надо написать програму в паскале, срочно 8 класс Задача 1 Ввести с клавиатуры а1, b1, a2, b2. Найти s=√(a2−a 1)2+(b2−b1)2 Задача 2 Ввести с клавиатуры r, t, y. Найти N=√z (z−r )( z−t)( z− y ) r+t+ y , если z=r+t+ y/2

Вопрос школьника по предмету Информатика

надо написать програму в паскале, срочно 8 класс
Задача 1
Ввести с клавиатуры а1, b1, a2, b2.
Найти s=√(a2−a 1)2+(b2−b1)2
Задача 2
Ввести с клавиатуры r, t, y.
Найти N=√z (z−r )( z−t)( z− y )
r+t+ y
, если z=r+t+ y/2

Ответ учителя по предмету Информатика

Ответ:

Задача 1

program название;

var a1, b1, a2, b2, s:real;

begin

writeln (Введите a1);

readln (a1);

writeln (Введите b1);

readln (b1);

writeln (Введите a2);

readln (a2);

writeln (Введите b2);

readln (b2);

s:=sqrt((a2-a1)*2+(b2-b1)*2);

writeln (‘Ответ:’, s);

end.

Задача 2

program название;

var r, t, y, z, N:real;

begin

writeln (Введите r);

readln (r);

writeln (Введите t);

readln (t);

writeln (Введите y);

readln (y);

z:=r+t+y/2;

N:=sqrt(z*(z-r)*(z-t)*(z-y)*r+t+y);

writeln (‘Ответ:’, N);

end.

Объяснение:

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