Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
1 килобайт = 1024 байт
<span>3,5 кб = 3584 б = 3584
</span>
3584 Кб * 1024 = 3 670 016 байт
Ответ: Количество символов в тексте 3 670 016.
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.
в ячейку B3 введите формулу =($A3*10+B$2)^2