Задача 1 1) 18 меняем на 2 => убралась 1 восьмерка. 2) 288 меняем на 3 => убралось ещё 2 восьмерки и всего 3. 3) 3888 меняем на 1 => убралось ещё 3 восьмерки и всего 6. Далее цикл повторяется убирая по 6 восьмёрок каждый раз. 80:6=13 и 2 в остатке, т.е. после 13-го цикла строка будет 188. Ещё раз заменим 18 на 2 и останется 28. На этом работа редактора закончится. Итог - строка 28 Задача 2 Здесь цикл из 4 операций: 3 раза меняем по 3 восьмерки на двойку и 1 раз меняем 3 двойки на восьмерку, т.е. всего убирается 9 восьмерок и добавляется 1 восьмерка. Таких циклов полностью будет 62:8=7 и 6 в остатке. Т.е. по окончании 7-го цикла останется строка из 6 восьмерок. Они заменяется на 2 двойки и работа редактора закончится. Итог - строка 22 Задача 3 Здесь цикл из 5 операций: Дважды 4444 меняем на 77 и один раз 777 на 4. Остаётся 74444 Ещё 1 раз 4444 на 77 и 1 раз 777 на 4. Итого убирается 10 четвёрок. Всего их 192, значит всего циклов 192:10=19 и остаётся 2 четверки, которые уже не меняются. Итог: строка 44.
Program dlksjijh; var A: array[1..40] of integer; i: integer; begin randomize; writeln('исходные данные:'); for i := 1 to 40 do begin A[i] := Random(21); write(A[i], ' '); end; writeln; writeln('преобрезованный массив:'); for i := 1 to 40 do begin if A[i] mod 2 = 0 then A[i] := Round(A[i]/2) else A[i] := A[i] * 3; write(A[i], ' '); end; end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.