Получите и распишитесь, ничего сложного здесь нет.
var
n:integer;
begin
readln(n);
if n.IsEven then n:=n*2
else inc(n);
writeln(n);
end.
==========================
var
n:integer;
begin
writeln('Сколько в 1 байте бит?');
readln(n);
if n=8 then writeln('Молодец!')
else writeln('Повтори единицы измерения количества информации');
end.
За 0,5 часа сторож проходит 2,5 км - это периметр участка P
P=2*(a+b)=2.5, значит b=(2.5-2*a)/2
Составим программу:
program rt45;
var a,b,s,p:real;
begin
readln(a);
b:=(2.5-2*a)/2;
s:=a*b;
write('Площадь=',s:6:2);
end.
1.2 в 37 степени байт= 2 в 40 бит= 2 в 30 Кбит= 2 в 20 Мбит= 2 в 10 Гбит.
2. 8Мбит=2 в 3 степени Мбит= 1 мбайт= 2 в 10 степени кбайт= 2 в 20 степени байт
3. 0,125 гбит = 0,125 * 2 в 10 степени= 0,125*1024=128