• составить программу записывающее четырехзначное число наоборот

Ответы 1

  • var a,x,b,y,z,c,r,m:integer;

    begin

    write ('a=');

    readln (a);

    r:=a div 1000;

    m:=a mod 1000;

    x:=m div 100;

    b:= m mod 100;

    y:=b div 10;

    z:=b mod 10;

    c:= z*1000+y*100+x*10+r;

    writeln ('c=' , c);

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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