Попробуй, может сработает)
program num32;var
nums, i, min, max, a, i2, i3, sum: integer;begin
min := 7;
max := 0;
sum := 0;
readln(nums);
while nums <> 0 do
begin
if (((nums mod 10) > max)) then begin
max := nums mod 10;
end;
if (((nums mod 10) < min)) then begin
min := nums mod 10;
end;
nums := nums div 10;
end;
if (min > max) then begin
for i2 := max to min do
sum := sum + i2;
end;
if (max > min) then begin
for i2 := min to max do
sum := sum + i2;
end;
writeln(sum);
end.
Может, как-то так:
а) тишь-тушь-туша-тура-бура-буря
б) тьма-тема-рема-рама-рана-кана-канн-каон-клон-слон-стон-стан-сван-сват-свет
тьма-тема-сема-сима-сила-кила-килт-киот-крот-грот-глот-глет-слет-свет
Используя формулы из логики, упростим данное выражение (в частности формула замена импликации=> для переменных А и В А=>B = (не)А V В
Затем подставляем входные данные
Ну примерно так:…43;4;29;104
1) дерево
2)дерево
3)60 см
4) 1000см²
5) коричневый
6) ну уже сам(а) напиши!