Сдвигаем число А вправо на 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)Соки-Сочи
уха-уфа
туча-тула
баки-баку
2)урал, ока, волга,
маска,корт, будка, ласка, дубы, гайка, клён, доска, цвет,колено.
Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
{write('Число проданных газет: ');
readln(k);}
k := 200;
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.
Привет дорогой друг!
Мое лето прошло замечательно. Я весело отдыхал на море, загорал, собирал ракушки и гулял с друзьями. В конце лета меня отправили на дачу. Там я помогал бабушке по хозяйству, а также ходил на речку. Полагаю, что это лето было самым лучшим в моей жизни!
А как ты отдохнул?
Нет,он не кодировал!
Var
x, y : real;
begin
read (x, y);
if sqr (x) + sqr (y) <= 4 then write ('YES') else write ('NO');
end.