А) 101 0100 1010(2)=2^10+2^8+2^6=1024+256+64=1354
б) BABA(16)=11*16^3+10^16^2+11*16+10=47802
в) 110 00110110(2)=2^10+2^9+2^5+2^4+2^2+2=1024+512+32+16+4+2=1590
г) CACA(16)=12*16^3+10*16^2+12*16+10=51914
В результате выполнения программы по данному алгоритму, получится 8
var s1,s2,a,b: integer; i: integer;begin s1:=0; s2:=0; a:=1; b:=3; for i:=a to b do begin if i mod 2=0 then s2:=s2+i*i else s1:=s1+i; end; s1:=s1+s2; writeln(s1);end.
A:=3;
1;
2;
2;
1;
1;
после этого в а будет храниться 16
Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.