Надо написать програму в паскале, срочно 8 класс Задача 1 Ввести с клавиатуры а1, b1,...

Question

Надо написать програму в паскале, срочно 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

Answer 1

Ответ:

Задача 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.

Объяснение:

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

Comments

а там где врайтэлен или другое скобки надо место скобок число да?

---

выдаёт ошибку: Program1.pas(7) : Встречено 'a1', а ожидалось ';'

---

если так пишет то перед строкой с a1 забыл в конце поставить ;

---

перепроверь, код. я писал код с телефона, могут быть ошибки.

---

не я чекнул в инете обсолютно другой образеци я понял что не хватает в этих скобкахвезде где они есть (Введите a1)(или не а1 а б1 ты понял...) не было вот этого символа ' и оно выгледело как то так ('Введите а1') и всё получилось

---

Огромное тебе всё равно спасибки, очень выручил))))))))))))))

---

ок я понял

---

незачто

---

можешь ещё помочь?

---

тоже в паскале