// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum)
end.
<u><em>Тестовое решение</em></u>
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202
К - 0
Л - 1
Р - 2
Т - 3
(четверичная система счисления (используется 4 цифры))
Нужно найти слово стоящее под номером 67 => это 66 в десятичной системе счисления(не 67,т.к. последовательность начинается с 0)
66(10) переведём в четверичную систему счисления - это 1002 = лккр
Ответе: лккр
4) Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г, Д, Е, Ж, З, И, Й. решили использовать неравномерн
олег36
Сначала отсортируем последовательность и получим:
0000,0001,0010,0011,0110,0111,1011,1100,1111
В данной последовательности минимальное не использованное число - 0100
#include <iostream>
using namespace std;
/* Язык С++.
* Запрашиваем у пользователя неопределенное количество целых чисел
* пока не введёт значение = 0
* посчитать количество элементов введенных пользователем кратных 5,
* а также вывести номер первого элемента, введенного пользователем значения = 5.
* Ноль не учитывается (если 5 нет, то номер = 0)
* Использовать do, while
*/
int main()
{
int n, c5 = 0, i = 1, i5 = 0;
bool found5 = false;
do {
cout << "Число: ";
cin >> n;
if (n == 0) break;
else if (n % 5 == 0) {
c5++;
if (i5 == 0) {
i5 = i;
}
}
i++;
} while (true);
cout << "Количество чисел, кратных 5: " << c5 << endl;
cout << "Номер первого элемента, кратного 5: " << i5 << endl;
return 0;
}
Var n:byte;
begin
n:=1;
repeat
writeln('n=', n:5);
n:=n+1;
until n>=10
end.
