Даны величины a b c d. составьте алгоритм для перемещения значений этих величин по такому принципу: b должно получить значение a; c - значение b; d - значение c.

D=c значение d
c=b
b=a

Program vbn;
var a,b,c,d:integer;
begin
writeln('введите a,b,c,d');
readln(a,b,c,d);
b:=a; c:=b; d:=c;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
end.

Пример работы во вложениях.

#include <iostream>

#include <ctime>

#include <cstdlib>

#include <algorithm>

#include <iterator>

#include <numeric>

#include <clocale>

#define UINT unsigned int

using namespace std;

int main() {

setlocale(LC_ALL, "Russian");

const int N = 5;

double Arr[N];

/*ГЕНЕРАЦИЯ ДАННОЙ ПОСЛЕДОВАТЕЛЬНОСТИ*/

srand((UINT)time(NULL));

generate(Arr, Arr + N, []() { return rand() % 91 + 10; });

/*ВЫВОД НА ЭКРАН ИЗНАЧАЛЬНОГО МАССИВА*/

cout << "Исходный массив:" << endl;

copy(Arr, Arr + N, ostream_iterator<int>(cout, " "));

cout << endl;

/*РАСЧЕТ СРЕДНЕГО АРИФМЕТИЧЕСКОГО ДЛЯ КАЖДОГО ЭЛЕМЕНТА*/

for(int i = N-1; i >= 0; --i)

 Arr[i] = accumulate(Arr, Arr + i, 0.0) / i;

Arr[0] = 0; // Перед первым элементом нечего складывать :D

 

/*ВЫВОД НА ЭКРАН КОНЕЧНОГО МАССИВА*/

cout << "Результирующий массив массив:" << endl;

copy(Arr, Arr + N, ostream_iterator<int>(cout, " "));

cout << endl;

system("pause");

return 0;

}

C#. Пример работы на изображении.

using System;

using System.Linq;

namespace Цифры_в_числе

{

   class Program

   {

       static void Main(string[] args)

       {

           string numb; bool flag;

           do

           {

               Console.Write("Введите любое целое число: ");

               numb = Console.ReadLine();

               

               if (flag = !int.TryParse(numb, out int some))

                   Console.WriteLine("Не число!");

           } while (flag);

           if (numb[0] == '-')

               numb = numb.Substring(1, numb.Length - 1);

           var q = from x in numb

                   group x by x into g

                   let count = g.Count()

                   orderby count descending

                   select new { Value = g.Key, Count = count };

           Console.WriteLine("Правда ли, что все цифры в этом числе одинаковы?");

           Console.WriteLine($"ответ: {(q.Count() == 1 ? "Да" : "Нет")}");

       }

   }

}