Исполнитель (для количества слов исполнитель,исполнитель,исполнитель,исполнитель)
Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>
Program lol (input, output);
var a, b, I:integer;
begin
write ('Введите число а: ');
read (a);
write ('Ввндите число b: ');
read (b);
for I:=-10 to 0 do
begin
if a=I then
writeln ('Число а пренадлежит промежтку');
if b=I then
writeln ('Число b пренадлежит промежтку');
end;
end.
1)var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write((a[1]+a[2])/2);
end.
2) var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write(a[2]-a[1]);
end.
3) var
n,m:Integer;
begin
Read(n);
m:=n div 1000;
Write(m,'кг',' ',n-m*1000,'г' );
end.
4)var
n,m:Integer;
begin
Read(n);
m:=n div 10000;
Write(m,'километров квадратных');
end.
1/16 кбайт = 64 байт = 512 бит
512 бит / 128 символов = 4 бита на символ
2^4 = 16 - максимальное количество комбинаций для шифрования букв.
Ответ B