<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
Узнаем сколько всего передано объёма в канал связи
10*5 = 50 Мбит
далее определим сколько это будет в Кбитах
50*1024 = 51200 Кбит
теперь узнаем сколько это в Кбайтах
51200 / 8 = 6400 Кбайт
Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.
Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение: