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


    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.

Ответы 1

  • См. файл во вложении
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years