Что нужно решить? Вы ничего не указали
Pascal:
program Project;
var
a,b,c: integer;
min, max: integer;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (a>b) and (a>c) then
begin
max:=a;
if b>c then
begin
a:=c;
c:=max;
end
else
begin
a:=b;
b:=max;
end
end else
begin
if (b>a) and (b>c) then
begin
max:=b;
if a>c then
begin
b:=c;
c:=max;
end
else
begin
b:=a;
a:=max;
end
end else
begin
max:=c;
if a>b then
begin
c:=b;
b:=max;
end
else
begin
c:=a;
a:=max;
end
end
end;
Write('a=',a);
Write('b=',b);
Write('c=',c)
end.
Рассмотрите числа в каждом ряду, определите какое число "лишнее" а) 2,3,6,7,11 б)18,12,3,29,45,28 в)1,2,3,5,6,7
Бистро
<span>ответ:а)6 ,б)28 в)6. вроде так</span>
Var
dat : TextFile;
s : String;
a, k, i : longint; //Int64 //Е<span>xtended</span>
begin
AssignFile(dat, 'bit.dat');
Reset(dat);
Readln(dat, s);
CloseFile(dat);
val( Copy(s, 1, pos(' ', s) - 1), a, i);
val( Copy(s, pos(' ', s) + 1, length(s)), k, i);
AssignFile(dat, 'bit.res');
ReWrite(dat);
Writeln(dat, a shr (k - 1) and 1);
Writeln(dat, a or 1 shl (k - 1));
Writeln(dat, a xor 1 shl (k - 1));
Writeln(dat, a shr (k + 1) shl (k + 1));
Writeln(dat, a shl (sizeOf(a)*8 - k - 1) shr (sizeOf(a)*8 - k - 1));
CloseFile(dat);
end.
