Дана строка. удвоить каждый символ строки,выбрать из нее символы кратные 4 и напечатать её наоборот. поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки.
Var s,s1:string; i,n:integer; begin Write('Введите строку: '); Readln(s); s1:=''; for i:=1 to Length(s) do s1:=s1+s[i]+s[i]; n:=Length(s1); i:=n-(n mod 4); while i>=4 do begin Delete(s1,i,1); i:=i-4 end; for i:=Length(s1) downto 1 do Write(s1[i]); Writeln end.
Думаю правильней 40 с, так как Килоба́йт (КБ, Кбайт [1]) — единица измерения количества информации, равная 1024 байтам. Действующий ГОСТ [1] указывает на такое определение килобайта как на некорректное, но исторически сложившееся. Но! Кто его знает, может вам дают уже по новой методике так что вспомните была написано "кбайт" или "Кбайт" Я бы выбрал 40, так как в свое время нас учили именно так
Думаю правильней 40 с, так как Килоба́йт (КБ, Кбайт [1]) — единица измерения количества информации, равная 1024 байтам. Действующий ГОСТ [1] указывает на такое определение килобайта как на некорректное, но исторически сложившееся. Но! Кто его знает, может вам дают уже по новой методике так что вспомните была написано "кбайт" или "Кбайт" Я бы выбрал 40, так как в свое время нас учили именно так
s,s1:string;
i,n:integer;
begin
Write('Введите строку: '); Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
n:=Length(s1);
i:=n-(n mod 4);
while i>=4 do begin
Delete(s1,i,1);
i:=i-4
end;
for i:=Length(s1) downto 1 do Write(s1[i]);
Writeln
end.
Примеры
Введите строку: Слово
оовоолСС
Введите строку: 123456789
99877655433211