Var
x, y, z, k: integer;
Begin
writeln('Введите двухзначное число');
read(x);
y:=x div 10;
z:=x mod 10 ;
k:=y+z;
writeln('Сумма цифр: ',k);
End.
Audi; BMW; Volkswagen; Datsun; KIA
Program uravnenie;
Var a,b,x: real;
BeginWriteln (' введите a');
Readln (a);Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
<span>End.
___________________________________
</span>
<span>массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99
первый цикл
</span><span>i := 0; j := 9;
while A[i] < 10 do
i := i + 1;
считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 </span>не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4
второй цикл
5, 28, 8, 14, 9, 23, 6, 18, 51, 99<span>
while A[j] > 10 do
j := j - 1;
t := A[i] - A[j];
смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176</span>