Var
i, p: integer;
begin
p := 1;
i := 5;
while i <= 10 do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
Dim x As real
Dim i As integer
INPUT x
FOR i=1 TO 30
x=x+(x*0.05)
NEXT i
PRINT x
END
П.С. не большая поправка верхнего решения, спасибо автору верхнего поста
Есть относительные ссылки, когда столбцы и строки меняются в зависимости от ячейки: A1 (A4+A2) --> B1 (B4+B2); C2 (B3+A1) --> C5(B6+A4); A2(B4) --> B4(C6).
А есть абсолютные ссылки, когда столбец строка или вся ячейка не изменяются, в зависимости от того где стоит знак $. A1($A3) --> C4 ($A6); A2 (B$3) --> B4 (C$3); A1 ($B$6) --> F20 ($B$6).
Теперь просто ответы:
- B) =C6+D$1
- B)= C1*$B2
- C) = $A1*D2
- C)=В5*С$2
- C)= $C2+F3
- c. B$5
- a. $B5
- 2. 5+2 это просто текст, текст и будет в ячейке
- c) 5*(A2+C3)/(3*(2*B2-3*D3)) арифметические знак ставить надо, а у знака : другое обозначение.
- d) =A2*A3-A4
- a) не изменяются
- d) преобразуются в зависимости от нового положения формулы.
- c) =$A$1*A3+B3
- d) 30 т.к. 20+20/2 = 30
- b) 140 т.к. мы посчитали сумму от ячейки A1 до ячейки A7 включая концы, а затем поделили на 2.
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
<u>Пример</u>
n= 368
86
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.