Срочно, помогите пожалуйста. 1) Напишите пожалуйста программу в Паскале ,которая бы...

Question

Срочно, помогите пожалуйста. 1) Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру одновременно в одной программе.

Answer 1

{Эта рабочая 100% :3}

var n: string;

procedure foo(str: string);

begin

writeln(str);

end;

function foo1(str: string): string;

begin

foo1:= str;

end;

begin

foo('I am a procedure');

n:= foo1('I am a function');

writeln(n);

end.

Comments

А программа эта что делает можете объяснить пожалуйста?

---

печатает 'I am a procedure' c помощью процедуры и'I am a function' с помощью функции

---

А можете ещё одну программу придумать? Также содержащую функцию и процедуру.

---

Например вычисления площади фигуры и чтобы был выбор в начале с помощью процедуры вычислить или функции, желательно с объяснениями.

---

что она должна будет делать?

---

Мне создать отдельное задание или вы здесь можете написать?

---

Вы будете писать или нет?