1- 110111
2-42
Для перевода числа из одной системы счисления в другую необходимо воспользоваться таблицей двоичной системы счисления.
Program adidos;
var X2,Y2,R:real;
begin
writeln('Введите X2 и Y2');
readln(X2);
readln(Y2);
R:=(X2+Y2)/2;
writeln('R=',R);
end.
1) 60*2*44,1*1000*16/8 = 10584000 байт чуть больше 10 Мб
var
a:array [1..100] of integer;
i,n,k:integer;
f:boolean;
begin
write ('Razmer massiva (N<100): ');readln(n);
for i:=1 to n do begin
a[i]:=random(36)-10;
write (a[i],' ');
end;
writeln;
write ('Number: ');readln(k);
f:=false;
for i:=1 to n do
if a[i]=k then f:=true;
writeln (f);
readln;
end.
Выводит FALSE, если в масиве нет числа,иначе выводит TRUE.
Машинный код из программы обычно получается с помощью программы-компилятора или программы-транслятора