1736 кбайта вот так чем могу тем помог
Минимальное число - 3
В данном случае у нас импликация, выражение ложно, если из истины следует ложь. Подставив 3 получим: 3<5(истина)->9<9(ложь).
PascalAbc.NET
var
a,k:longint;
begin
k:=0;
a:=123454;
while a <> 0 do
begin
read(a);
if (a div 10 <=9) and (a div 10 >=1) then
inc(k);
end;
writeln(k);
end.
var n:integer;
begin
write('Введите 4-х значное число: ');
readln(n);
if n div 1000 = n mod 10 then write('Первая цифра равна последней: ',n div 1000,'=',n mod 10)
else if n div 1000 > n mod 10 then write('Первая цифра больше последней: ',n div 1000,'>',n mod 10)
else write('Первая цифра меньше последней: ',n div 1000,'<',n mod 10)
end.