Ответ:
А B C D E
1 1 10 100 1000
2 2 20 200 =$B2+C$3 20000
3 3 30 300 3000 30000
4 4 40 400 4000 40000
Объяснение:
// PascalABC.Net 3.0, сборка 1066
var
c:char;
begin
Write('Введите левую скобку: '); Readln(c);
case c of
'(':Writeln(')');
'[':Writeln(']');
'{':Writeln('}');
else Writeln('неверный символ')
end
end.
Я только мыслю, ничего не печатаю, ничего не говорю, а машина меня понимает, словно мой мозг - часть машины
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>