2 Контрольная работа No 4
Усажите наименьшее четырёҳоитиде число, все цифры ко-
торого различны, така что и результате применения к нему
данного алгоритми получится число 16,
Решение
Omoem:
ВАРИАНТ 2
1. У исполнителя Вычислитель две команды, которым присвое-
ны номера: 1
умножь на 5; 2 Вычти 5.
Первая из них увеличивает число в 5 раз, вторая уменьшает
его на 5. Составьте алгоритм получения из числа 4 числа 80
содержащий не более пяти команд. в ответе запишите толь
ко номера команд. Если таких алгоритмов более одного, та
запишите любой из них.
Решение
ответ: :
2. Чертёжнику был дан для исполнения следующий алгоритм:
Команда 1
Повтори 5 раз
Сместиться на (-2, -1)
Сместиться на (2, 1)
Конец
Какой должна быть Команда 1, чтобы Чертёжник вернул
в исходную точку, из которой он начал движение?
Решение
Omeem:
3. Автомат получает на вход пятизначное десятичное чис.
По полученному числу строится новое десятичное число
следующему правилу.
1) Вычисляются два числа сумма первой, третьей и пя
цифр и сумма второй и четвёртой цифр заданного число
2) Полученные два числа записываются друг за другом
порядке неубывания (без разделителей).
Пример: исходное число: 14351. Поразрядные суммы: 5.
Результат: 95.
55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.