А - голова думает
В - язык отдыхает
А↔В (Голова думает тогда и только тогда, когда язык отдыхает)
Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
Да можно потому что таблица занимает свое место. крч не могу обьЯсни ть
ED(16)+20(8)=100001101(2) Здесь таких чисел нет, все меньше