Количество информации = количество символов умноженное на количество битов которым кодирован один символ
(1) var a:integer; b:boolean;
begin
read(a);
if (a > 100) and (a < 120) then b := true else b := false;
if (b) then writeln('popal') else writeln('ne popal');
end.
(2) var i:integer; n: integer;
begin
read(n);
for i := 1 to n do writeln('I love jumping');
end.
Если числа нечётные, то их сумма будет чётной. Смотрите:
( 2n+1)+(2n+1)=4n+2.
Соответственно если 3+9=12 (чётное) и с другими примерами аналогично.
Другое название жёсткого диска -"винчестер" Ещё его называют "железка"
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.