Вставлен в документ Word (сюда нельзя присоединить файл формата EMZ). Замечание: рисунок этого формата можно масштабировать.
Var n: integer;
begin
writeln('Введите число:');
readln(n);
if n mod 2 =0 then writeln('Это четное число')
else writeln('Это нечетное число')
end.
var
m:integer;
n:real;
begin
n:=120;
m:=0;
while n<150 do
begin
n:=1.02*n;
m:=m+1;
end;
writeln('Ответ: ',m)
end.
Множество натуральных чисел
Исполнители алгоритмовЗадание 5Исполнитель Робот ходит по клеткам бесконечной вертикальной клетчатой доски, переходя по одной из команд вверх, вниз, вправо, влево в соседнюю клетку в указанном направлении. Робот выполнил следующую программу:вправовверхвлевовлевовнизвнизвправовправовправо внизвлевоУкажите наименьшее возможное число команд в программе, переводящей Робота из той же <span>начальной клетки в ту же конечную</span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if n<=1 then begin
Writeln('n должно быть больше 1');
exit
end;
var (max,steps):=(n,0);
Print(n);
while n<>1 do begin
if n.IsEven then n:=n div 2
else n:=n*3+1;
Print(n);
if n>max then max:=n;
steps+=1
end;
Writeln(NewLine,'Наибольшее число в последовательности ',max);
Writeln('Число шагов алгоритма ',steps)
end.
<u>Пример</u>
n= 1242
1242 621 1864 932 466 233 700 350 175 526 263 790 395 1186 593 1780 890 445 1336 668 334 167 502 251 754 377 1132 566 283 850 425 1276 638 319 958 479 1438 719 2158 1079 3238 1619 4858 2429 7288 3644 1822 911 2734 1367 4102 2051 6154 3077 9232 4616 2308 1154 577 1732 866 433 1300 650 325 976 488 244 122 61 184 92 46 23 70 35 106 53 160 80 40 20 10 5 16 8 4 2 1
Наибольшее число в последовательности 9232
Число шагов алгоритма 88