Автомат получает на вход пятизначное десятичное число по полученному числу строится новое десятичное число по следующим правилам вычисляются два числа сумма первых трех цифр сумма последних трёх цифр полученные два числа записываются друг за другом в порядке неубывания без разделителей пример исходное число 15177 поразрядные суммы 715 результат 715 определите сколько из ниже чисел могут получиться в результате работы автомата 25 25 25 625 20 25 28 28 25 25 625 106​

ответ:

2525 может

256 не может, т.к. порядок это означает, что сумма трёх цифр -56, а это невозможно

2520 порядок не тот

2528 сумма трёх цифр не может быть 28

2825 порядок не тот

2025 может

625 может

106 порядок не тот

ответ: 3

Какой океан был открыт самым первым?   в россии -северный ледовитыйв -атлантическийв австралии -индийскийв японии - тихий

1) элемент с номером k заменяется на 2

var

a: array [1..20] of integer;

i,n,k: integer;

begin

readln(n);

for i: =1 to n do

begin

a[i]: =random(50);

write(a[i]: 3);

end;

writeln;

readln(k);

a[k]: =2;

for i: =1 to n do

write(a[i]: 3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var a: array [1..20] of integer; i, n, k: integer;

begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.