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

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

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

Dima Varaste · Answer 2 · 2019-08-24 08:56:28+3:00

Dima Varaste 2019-08-24 08:56:28

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

Амина Тарнашинская 2019-08-24 09:04:08

спасибо

Холодилкин Даниил 2019-08-24 09:05:33

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

Семик Морасанов 2019-08-24 08:57:32

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

Angelina Golanceva 2019-08-24 09:07:32

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

Леонид Слепов 2019-08-24 09:14:19

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

Леха Берланд 2019-08-24 08:58:07

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

Анатолий Бахр 2019-08-24 09:06:51

вот конкретно )

Евгения Трагира 2019-08-24 09:07:59

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

Вадим Свободнов 2019-08-24 09:15:43

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

Андрюха Барпала 2019-08-24 09:21:53

That's right ))

О проекте

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

Добро пожаловать!