Задать вопрос Регистрация
Помочь другим

  • Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. 

    Схема циклического обмена:

    a <- b <- c

    I             ^

    I             I 

    v--------->

    Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1. 

     

Ответы 2

  • var a,b,c,a1,b1,c1:real;

    begin

    readln(a,b,c);

    b1:=a;

    c1:=b;

    a1:=c;

    writeln(a1,b1,c1);

    end.

    • Автор:

      mollie
    • 6 лет назад
    • 0

  • program cikl;

    var a,b,c,i,j,k:integer;

     

    begin

    writeln('BBedute A,B,C');

    readln(a,b,c);

    i:=a;

    j:=b;

    k:=c;

    a:=j;

    b:=k;

    c:=i;

    writeln('a=',a,'b=',b,'c=',c);

    readln

    end.

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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