Var i, n:integer; b:array[1..3] of integer;begin write('Type integer: '); readln(n); if n<0 then n:=-n; // уничтожение знака числа repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('Цифра сотен больше десятков ',b[3] - b[2])elsewriteln('Цифра сотен меньше десятков ',b[2] - b[3]);if b[2] > b[1] thenwriteln('Цифра десятков больше единиц ',b[2] - b[1])elsewriteln('Цифра десятков меньше единиц ',b[1] - b[2]);end.
Uses crt;
var
a,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln();
write('Введи основание а = ');
readln(a);
<span>writeln(); </span>
write('Введи основание b = ');
<span> readln(b); </span>
writeln();
<span>write('Введи высоту h = '); </span>
readln(h);
S:=h*(a+b)/2;
writeln('Ответ: ',S);
<span>end.</span>
У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом:
Идет направо – песнь заводит,
Налево - сказку говорит,
Там чудеса: там леший бродит,
Русалка на ветвях сидит…
(А. С. Пушкин)