1. Из списка данных выберите объекты, которые по своему назначению не являются носителями информации: А) ножницы; Г) тетрадь; Б) почтовая открытка; Д) компакт-диск; В) флешка ; Е) пенал.
Var f,s:text; st,sp:string; i:integer; c:char; begin assign(s,'text1.txt'); reset(s); while not Eof(s) do begin; readln(s,sp); st:=st+sp+chr(10)+chr(13); end; close(s); for i:=1 to length(st) div 2 do begin c:=st[i]; st[i]:=st[length(st)-i+1]; st[length(st)-i+1]:=c; end; assign(f,'text.txt'); rewrite(f); write(f,st); close(f); end.
Текст в файле text1.txt:
Simple text 1And another simple text 2New text
Текст в файле text.txt: txet weN2 txet elpmis rehtona dnA1 txet elpmiS
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 function BinToOct(s:string):string; // переводит двоичную триаду в восьмеричную цифру begin case s of '000':Result:='0'; '001':Result:='1'; '010':Result:='2'; '011':Result:='3'; '100':Result:='4'; '101':Result:='5'; '110':Result:='6'; '111':Result:='7'; end end;
begin var s2:=ReadlnString('Введите целое двочное число'); var k:=s2.Length mod 3; if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины var s8:=''; for var i:=1 to s2.Length div 3 do s8:=s8+BinToOct(Copy(s2,3*i-2,3)); Writeln(s8); end.
Пример Введите целое двочное число 10101100001 2541
Var
f,s:text;
st,sp:string;
i:integer;
c:char;
begin
assign(s,'text1.txt');
reset(s);
while not Eof(s) do
begin;
readln(s,sp);
st:=st+sp+chr(10)+chr(13);
end;
close(s);
for i:=1 to length(st) div 2 do
begin
c:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=c;
end;
assign(f,'text.txt');
rewrite(f);
write(f,st);
close(f);
end.
Текст в файле text1.txt:
Simple text
1And another simple text
2New text
Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS
function BinToOct(s:string):string;
// переводит двоичную триаду в восьмеричную цифру
begin
case s of
'000':Result:='0';
'001':Result:='1';
'010':Result:='2';
'011':Result:='3';
'100':Result:='4';
'101':Result:='5';
'110':Result:='6';
'111':Result:='7';
end
end;
begin
var s2:=ReadlnString('Введите целое двочное число');
var k:=s2.Length mod 3;
if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины
var s8:='';
for var i:=1 to s2.Length div 3 do
s8:=s8+BinToOct(Copy(s2,3*i-2,3));
Writeln(s8);
end.
Пример
Введите целое двочное число 10101100001
2541