Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString('Введите строку символов:').ToCharArray;
// Теперь у нас есть исходный массив символов, а для работы нужна строка!
a:=a.JoinIntoString('').RegexReplace('\([^\(\)]+\)','').ToArray;
a.Println
end.
<u>Пример</u>
Введите строку символов: 2+3(4+1)+2(x-1)(x-2)+a
2+3+2+a
Смотри вложение, там написан рабочий код.
Если будут вопросы - пиши. Все объясню ;)