Файл во вложении направляю на вам в группу для для покупок и в в
Переведем число 972 в двоичную систему счисления:
972₁₀ = 1111001100₂
Нужно осуществить 10 циклических сдвигов.
Получаем: 0111100110₂ = 486₁₀
Var
s:string;
d,i:integer;
begin
s:='177777277777377777477777';
d:=length(s);
for i:=1 to d-4 do
if copy(s,i,5)='77777' then
begin
delete(s,i,5);
insert('00000',s,i);
end;
writeln(s);
end.
Во-первых, нельзя называть программу и переменную одним именем, а лучше вообще не пользоваться program. Во-вторых, максимально возможное из целых положительных integer=2147483647
А) карта (география, история), граф(информатика), график(математика), диаграмма(информатика), фотография(мхк, история), чертеж(черчение)
б) график(погода за месяц), фотография(интернет), карта(если путешествую)