<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a[1:]; a.Println;
end.
<u>Пример</u>
n= 13
33 43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
<u>Замечание:</u> использован динамический массив, так что он просто станет на один элемент короче.
Компьютор -электронна вычеслительная машина (ЭВМ)
Фильм длится 60+60+15=135минут*60=8100секунд*2152кбит/с=17431200 кбит. Переводим в биты (то есть умножаем еще на 1000) получаем 17431200000 бит
90 Мбит/с переводим в биты (Умножаем на 1.000.000) получаем 90000000 бит.
Время затраченное на скачивание 174312000000/90000000=193,68 секунды.
P.s Преставки Кбит, Мбит, Гбит:
1 Кбит = 1000бит
1 Мбит = 1000000бит
1 Гбит = 1000000000бит
1.
var
c: char;
a: string;
i: integer;
begin
writeln('Введите строку a:');
readln(a);
writeln('Введите символ с:');
readln(c);
for i:=length(a) downto 1 do
if a[i] = c then delete(a, i, 1);
writeln(a);
<span>end.
2.
var
b: string;
i, b1, b2: integer;
begin
writeln('Введите строку b:');
readln(b);
b1 := 0; b2 := 0;
for i:=1 to length(b) do
begin
if b[i] = '!' then inc(b1);
if b[i] = '?' then inc(b2);
end;
writeln('Восклицательных знаков: ', b1);
writeln('Вопросительных знаков: ', b2);
<span>end.</span></span>