Ответ A . Этот алгоритм увеличивает число на 1 . Это видно на фото.
<em>
</em><em />В приведенной последовательности ошибка, там не 18, а 17.
<em>
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
<u>Результат</u>1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329
1580kilobautпо идее должно быть до 1580 килобайтов
program p1;
var
y, e, x, d:real;
begin
y:=ex * d;
readln(e);
readln(x);
readln(d);
writeln(y);
end.
Школа: Директор - управляющий, учителя и дети - объект управления.
Класс: Учитель -управляющий, ученики - объект управления.
Самолет: Экипаж - управляющие,а пассажиры - объект управления.
Стая волков: вожак стаи - управляющий, все остальные волки - объект управления.
Стадо коров: пастух - управляющий, коровы - объект управления.