У исполнителя Вычислитель две команды, которым присвоены номера: 1 — умножь на 5; 2 — вычти 5. Первая из них увеличивает число в
У исполнителя Вычислитель две команды, которым присвоены номера: 1 — умножь на 5; 2 — вычти 5.
Первая из них увеличивает число в 5 раз, вторая уменьшает его на 5. Составьте алгоритм получения из числа 4 числа 80, содержащий не более пяти команд. В ответе запишите только номера команд. Если таких алгоритмов более одного, то запишите любой из них.
Скорее всего, условие задачи сформулировано некорректно, ибо составить программу, содержащую не более пяти команд не получится, и сейчас объясню почему.
Так как нужно из числа 4 получить число 80, то первая команда не может являться "2", в противном случае мы уйдем в отрицательные числа. Тогда первая команда - "1", и теперь нам нужно из числа 20 получить число 80. Рассмотрим несколько случаев, когда последней командой мы получаем число 80.
1 случай.
Если последняя команда - "1", то это возможно, когда предпоследний результат будет равен 16, однако так как наша траектория точно содержит число 20, которое кратно 5, то, применяя далее наши команды, мы всегда будем получать число, кратное 5, а нам нужно получить 16. Противоречие.
2 случай.
Теперь рассмотрим ситуацию, когда последняя команда - "2". То есть предпоследний результат равен 85. Если получать число 85 командой "1", то траектория должна содержать число 17. Из соображений кратности (см. 1 случай) это невозможно. Значит вторая с конца команда должна являться "2". Аналогично рассуждая, приходим к выводу о том, что и третья, и четвертая команды с конца тоже должны быть "2". То есть наша траектория имеет вид 1*2222, причем на месте "*" должна быть такая траектория команд, которая позволит получить из числа 20 число 100. Ясно, что наименьшая траектория будет 112222, но она содержит 6 команд. Противоречие.
Получается, что из числа 4 получить число 80 программой, которая бы содержала не более 5 команд, действительно не получится. Но если говорить о наименьшей траектории, то 112222 - будет являться ответом на эту задачу.
//2 begin for var i:=1 to 4 do writeln ('забота'); end.
//3 var sum: longint; begin for var i:=1 to 5 do inc (sum, readinteger('Введите число: ')); write ('Сумма пяти чисел: ', sum); end.
//4 var sum, n: integer; begin for var i:=1 to 10 do begin n:=readinteger ('Введите число: '); if (n mod 2)=0 then inc (sum, n); end; write ('Сумма четных чисел: ', sum); end.
//5 var sum, r: integer; begin for var i:=1 to readinteger ('Введите n: ') do begin r:=readinteger ('Введите число: '); if (r mod 3)=0 then inc (sum, r); end; write (sum); end.
//6 begin for var i:=0 to 9 do if ((4204+10*i) mod 7) = 0 then writeln (i); end.
slovo = str(input()) a = slovo[::-1] if slovo == a: print("yes") else: print("no")
pascal:
function palindrom(var arg:string):boolean; var i:byte; str:string; begin palindrom:=false; str:=''; for i:=length(arg) downto 1 do str:=str+arg[i]; if str=arg then palindrom:=true; end; var s:string; begin readln(s); writeln(Palindrom(s)); readln; end.
begin Randomize; Writeln('Элементы массива'); k := 0; s := 0; for i := 1 to n do begin x[i] := Random(50); Write(x[i]:3); end; Writeln; Writeln('Элементы со значением в интервале [7;10]'); for i := 1 to n do if (x[i] >= 7) and (x[i] <= 10) then begin k := k + 1; s := s + x[i]; Write(x[i]:3) end; if k = 0 then Writeln('не найдены') else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3) end.