Переведите из паскаля в питон !! а)var
a, b, c, d: integer; e : boolean;
begin
Readln(a);
e:=false;
b:=a div 100;
c:=a div 10 mod 10;
d:=a mod 10;
if (b=3) or (c=3) or (d=3) or (b=6) or (c=6) or (d=6) or (b=9) or (c=9)or (d=9)
then e:=true;
if e then Writeln('YES')
else Writeln('NO');
end.
б)var
a, b, c, d: integer; e : boolean;
begin
Readln(a);
e:=false;
b:=a div 100;
c:=a div 10 mod 10;
d:=a mod 10;
if (b=4) or (c=4) or (d=4) or (b=7) or (c=7) or (d=7) then e:=true;
if e then Writeln('YES')
else Writeln('NO');
end.

goldin1337    1   31.01.2022 10:19    1