var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.
Ответ:
Объяснение:
Файловая система: состоит из физического носителя памяти верху, каталогов, подкаталогов и файлов
Системы уравнений состоят из уравнений, переменных и постоянных
Система счисления состоит из цифр и способа их отображения-в виде цифр, знаков, букв, узелков...
5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -