Var
a,b,c : integer;
begin
readln(a,b,c);
if (a < b) and (a < c) then writeln(a);
else if (b < a) and (b < c) then writeln(b);
else if (c < a) and (c < b) then writeln(c);
else writeln('Числа равны');
end.
Ответ на первую
var
i,m,b:integer;
a:array[1..15] of integer;
begin
for i:=1 to 15 do
a[i]:=random(100)+1;
repeat
for i:=1 to 14 do
if a[i]<a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
inc(m);
until m=14;
for i:=1 to 15 do
if a[i] mod 2 = 0 then
write(a[i],' ');
end.
коды.. .
var a,b:char;
begin
writeln('Введите символы');
readln(a,b);
writeln('код 1 числа - ',ord(a));
writeln('код 2 числа - ',ord(b));
if ord(a) < ord(b) then
writeln('a < b')
else if ord(a) > ord(b) then
writeln('b < a')
else writeln('a = b');
readln;
end.
A) 143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3
б) 143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0
в) 143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0
г) 1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2