<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 6 do
for var c:=0 to 5 do
for var b:=0 to 4 do
for var d:=5 to 9 do
if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' ');
Writeln
end.
<u>Результат</u>
1055 1156 1257 1358 1459 2045 2146 2247 2348 2449 3035 3136 3237 3338 3439 4025 4126 4227 4328 4429 5015 5116 5217 5318 5419 6005 6106 6207 6308 6409
X=4;
(1*X+3)+(3*X+1)=1*X²+1*X
X²-3*X-4=0
X=4
13₄+31₄=110₄
Как я думаю значение величины: км, м, см, мм, дм, литры, миллилитры,кг,гр.
текстовые данные-единица измерения: м(длинна), с(время секунда).
Помогла чем смогла
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.