Не (x < 45) и не (в числе x нет одинаковых цифр)

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

запихнуть тепловоз и пассажирский вогон

дать грузовому проехать.

выехать из тупичка

грузовой возвращается до тупичка

грузовой тепловоз задом запихивает оставшиеся 2 вагона пассажирских в тупичек

грузовой уезжает

пассажирский прицепляет 2 вагона и уезжает

последнее будет неверно тк получается что для всех 99-и оно работает, а для себя- нет что противоречит условию именно поэтому девяносто девятое будет верно