Всего 126 чисел
2^6 < 121 < 2^7 ---> 7 бит для кодировки одного числа
7*70 =490 бит= 490 /8 байт =61,25 байт =62 байта
ответ 62 байта
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.
Путь- набор символов, показывающий расположение файла в файловой системе, адрес каталога.
Примеры:C:\Users\jelly\Documents\BFH\Temp
C:\Intel\Logs
D:\Program Files (x86)\Adobe
Var a,b:real;
Begin
Write('Введите два числа: ');
ReadLn(a,b);
if a > b then WriteLn(a*3)
else WriteLn(b*3);
Write('Введите три числа: ');
Read(a,b);
if a > b then a:=b;
ReadLn(b);
if a > b then a:=b;
WriteLn(a-10);
End.
Пример работы программы:
Введите два числа: 1 3
9
Введите три числа: 2 1 3
-9