Question

помогите перевести с паскаля на с++


uses crt;
var x,y,i:integer;
begin repeat begin
writeln('vvedite 2-oe chislo');
readln(i); if (i>99)or(i<10) then writeln('vv 2-xzn chislo') else begin
x:=i mod 10;
y:=i div 10;
if ((x=4) or (x=7) or (y=4) or (y=7))
then
writeln('vhodiat 4, 7')
else
writeln('ne vhodiat 4, 7');
if (x=3) or (x=6) or (x=9) or (y=3) or (y=6) or (y=9)
then
writeln('vhodiat 3, 6, 9')
else
writeln ('ne vhodiat 3,6,9');end;end;until i=0;
end.

Answer 1

См. файл во вложении

fe315f8e7d43f21d53dbdd0047d4b8f3.txt