Задать вопрос
13 декабря, 03:03

Создайте программу, которая запрашивает значения 5 переменных и организует циклический обмен. a1<-a2, a2<-a3 ... a5<-a1. Пример: 1 2 3 4 5. После обмена: 2 3 4 5 1

+2
Ответы (1)
  1. 13 декабря, 05:09
    0
    Var

    a1, a2, a3, a4, a5, B:real;

    Begin

    Write ('Введите пять чисел: ') ;

    ReadLn (a1, a2, a3, a4, a5) ;

    B:=a1;

    a1:=a2;

    a2:=a3;

    a3:=a4;

    a4:=a5;

    a5:=B;

    WriteLn (a1,' ', a2,' ', a3,' ', a4,' ', a5) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Создайте программу, которая запрашивает значения 5 переменных и организует циклический обмен. a1 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы