6
закрасить
нц 3 раза
влево; закрасить
кц
нц 4 раза
вниз; закрасить
кц
нц 2 раза
вправо; закрасить
кц
нц 2 раза
вверх; закрвсить
кц
влево; закрасить
ну или хард или винчестер
{общий член последовательности можно задать формулой Sn=((An-1)+(Bn-1))/(An-1) где A- числитель, В - знаменатель }
const n=10;
var A,B,C,i,k: integer;
begin
A:=1; B:=1;
{ вывод последовательности на экран }
for i:=2 to n do
begin
C:=A; A:=A+B; B:=C;
writeln(i,' -> ',A,'/',B);
end;
{ подсчет k - го члена }
k:=20; A:=1; B:=1;
for i:=2 to k do
begin
C:=A; A:=A+B; B:=C;
end;
writeln(k,' - ый элемент = ',A,'/',B);
<span>end.
</span>
Помой полы
1) убери все вещи с пола,
2) отряхни коврики
3) подмети пол
4) вымой пол
5) мой от угла к выходу
6) помой тряпку под струей воды
7) положи все на место
Видимо, имеется в виду паскаль?
1 команда - ошибок нет
2. - в операторе присваивания (:=) слева от знака присваивания может быть только переменная, а здесь записано выражение a+b
3. - Так как слева от := может быть только переменная, то здесь тоже ошибка. Имена переменных не могут начинаться с цифры (6а - ошибка)
4. Здесь тоже ошибка, так как слева от := записан вызов функции (sqr(c))
5. a=8 - это не команда, а сравнение значений a и 8. Присваивание в паскале записывается :=
6. Здесь, видимо, используется математическая запись 2y (что неверно) вместо 2*y