Легко видеть, что элементы второй строки имеют значение, равное удвоенному значению соответствующих элементов первой строки, увеличенному на единицу.
Поэтому, если в первой строке
1 2 3
то во второй
<em>3 5 7</em>
не знаю синтаксис паскаля, но думаю сможешь перевезти:
n,a as integer
a:=(n mod 10) - (n div 10);
if a<0 then
a:=a*-1;
write(a);
end.
2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.
3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.
<span>целый целый R := A + B
тип результата: целый
целый целый R := A - B
</span><span><span>тип результата: целый
</span>целый целый R := A * B
</span><span>тип результата: целый
целый целый R := A / B
</span><span><span>тип результата: вещественный
</span>целый целый A > B
</span><span><span>тип результата: логический (true/false)
</span>
целый целый A < B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный R := A + B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A - B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A * B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A / B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный A > B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный A < B </span>
<span><span>тип результата: логический (true/false)
</span></span>
<span> x=154 в начале
a:=x div 100; 154 div 100 = 1 (деление нацело), a = 1
b:=x mod 100; 154 mod 100 = 54 (остаток от деления нацело), b = 54
c:=x mod 10; 154 mod 10 = 4, c=4
s:=a+b+c; 1+54+4 = 59, s=59.
Ответ: 59 </span>