Var b, v, t:integer;begin write('Skolko bilo bakteriy?'); readln(b); v := 1; t := 0; while b > 0 do begin b := b - v; b := b * 2; v := v * 2; t := t + 1; end; writeln(t);<span>end.</span>
7-Д)
8-А)
9-А)
10-?(К сожалению не знаю).
11-Д)
На 4 ответа не знаю :(
5. С begin начинается непосрелствеено написание всего года. Begin переводиться как начало, т.е. начало алгоритма. Так же begin используется, если после условного оператора и опепаторов цикла требовалось выполнить несколько операций.
6. Real это тип с плавающей точкой. Например: 2.3, 4.507, 5.0 и т.д. и т.п.
7. Char это символьный тип. Например: 'd', '3', ',' и т.д. и т.п.
8. К операторам по типу write, или read добавляется оператор -ln
9. Для ввода данных используется оператор read
10. a:=b+c;
Writeln('a= ', a);
End.
Поворот в лево
идти 1 шаг
повернуть в право
идти 1 шаг
повернуть в право
идти 3 шага
повернуть в право
идти 3 шага
повернуть в право
идти 1 шаг