Есть числа x,y,z надо найти Min(x,y,z)

Question

Есть числа x,y,z надо найти Min(x,y,z)

Comments

надо написать програму в turbo paskal

---

могу на с++

---

ну можна

Answer 1

Var
  x,y,z,min:integer;
begin
  Write('Введите три целых числа: '); Readln(x,y,z);
  if x  if z  Writeln('Min=',min)
end.

Тестовое решение:
Введите три целых числа: 2 3 1
Min=1

Answer 2

Код на с++:....................................................................................................

---

Comments

спасибо

---

Плохо когда человеку забивают голову "высшими сферами" и обучают С++, не выучив сначала азам Паскаля или Бейсика. Это все равно, что учить алгебру, не освоив предварительно начал арифметики.

---

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

---

Понятно, "одиночка-любитель". Вопросов нет.

---

черту "любитель" уже давно пересек :)

---

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

---

вот именно )

---

Но если Вы "в пятерке", и при этом не знаете Паскаль - это, простите, попросту смешно.

---

ok you got it) i'm not gonna prove anything about this. )

---

That's right ))