Автомат получает на вход четырёхзначное число (его первая цифра не должна быть равна нулю по этому числу строится новое число по следующим правилам: 1) складываются первая и вторая, вторая и третья, третья и четвёртая цифры исходного числа; 2) полученные три числа записываются друг за другом в порядке убывания (без разделителей). пример. исходное число: 3165. суммы: 3 + 1 = 4, 1 + 6 = 7, 6 + 5 = 11. числа 4, 7, 11 записываются друг за другом в порядке убывания, получается 1174. a b вам даны пять чисел, которые получил автомат при вводе в него каких-то пяти неизвестных четырёхзначных чисел: 321, 860, 1276, 13123, 171615. для каждого из этих чисел найдите минимальное целое число, при подаче которого на вход автомату было получено данное число (то есть нужно найти пять чисел, таких, что из первого числа автомат получит число 321, из второго числа – 860, из третьего числа – 1276, из четвертого числа – 13123, из пятого числа – 171615, причём найденные числа были бы минимально возможными). в ответе нужно записать пять целых чисел в отдельных строках без запятых и других разделителей. порядок записи чисел в ответе менять нельзя. если вы не можете найти ответ для какого-то из данных чисел, вместо этого ответа запишите любое четырёхзначное число, например, 1111.
Ответы
Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i,k: integer;
min,max: real;
begin
k:=0;
N:= 10;
for i:=1 to N do begin
read(a[i]);
k:=k+a[i];
end;
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
min := a[1];
for i:=2 to N do
if a[i]<min then
begin
min := a[i];
end;
max := a[1];
for i:=2 to N do
if a[i]>max then
begin
max := a[i];
end;
writeln('max=',max,' ','min=', min,' ','Средная температура=',k/N)
end.
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i,k: integer;
min,max: real;
begin
k:=0;
N:= 10;
for i:=1 to N do begin
read(a[i]);
k:=k+a[i];
end;
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
min := a[1];
for i:=2 to N do
if a[i]<min then
begin
min := a[i];
end;
max := a[1];
for i:=2 to N do
if a[i]>max then
begin
max := a[i];
end;
writeln('max=',max,' ','min=', min,' ','Средная температура=',k/N)
end.
1) для кодировки используется последовательность русского алфавита.
ключ: код
У кого сильные мышцы, тот победит одного. Кто силён знаниями, тот победит тысячи.
2) использыется последовательность русского алфавита, только со смещением на 1 букву. т.е. первая буква будет Я, вторая А, третья Б и т.д.
ключ: интернет
Трудно в учении - легко в бою
3) можно использовать код Цезаря (для кодировки нужной буквы используется буква, стоящая далее по алфавиту третьей)
ключ: длх - наименьшая единица измерения информации (бит)
ЦФТЗШ
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как найти сумму чисел кратных 7 от 1 до n включительно
Автор: sargisyan
Составьте программу выделения цифр из трехзначного числа. в паскале.
Автор: PushkinaKurnosov984
Составить алгоритм одноклеточная амеба каждые 3 часа делится на 2 части. сколько амеб будет через 3, 6, часа
Автор: ВостриковаСтародубцева1980
Дз по информатике.как это сделать надо
Автор: Vladimirovna1370
2) 860: суммы - 8, 6, 0; миним. число = 2600
3) 1276: суммы - 12, 7, 6; миним. число = 1570
4) 13123: суммы - 13, 12, 3; миним. число = 4930
5) 171615: суммы - 17, 16, 15; миним. число = 6988