Сдвигаем число А вправо на i бит, а потом сдвигаем результат влево на i бит. Освободившиеся правые разряды автоматически заполняются нулями.
var
a, i, j: integer;
begin
Write('Введите через пробел целое А и натуральное i: ');
Readln(a, i);
a := (a shr i) shl i;
Writeln('a=', a)
end.
Тестовое решение:
Введите через пробел целое А и натуральное i: 124 5
a=96
хз) пж ответь на мой вопрос пж завтра боюсь 1 получить(
Program zadanie;
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
E:\видеозапись.avi
E:\ график.xls
E:\ИЗОБРАЖЕНИЯ\аквариум.bmp
E:\ИЗОБРАЖЕНИЯ\ ФОТО\Бия.jpeg
E:\ИЗОБРАЖЕНИЯ\ ФОТО\ Катунь.jpeg
E:\ ТЕКСТЫ\буква.txt
E:\ ТЕКСТЫ\ онегин.doc
E:\мелодия.mp3
E:\презентация.ppt
Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.