Помогите составить программы по информатике(извиняюсь, что задания на белорусском языке), паскаль abc
Answers & Comments
varanchik
3:var s:string; i:byte; begin writeln('Введите текст'); read(s); while (pos('при',s)<>0) do begin i:=pos('при',s); delete(s,i,3); insert('про',s,i); end; write(s) end. 1: var s:array[1..1000] of char; x:string; n,i,g,b:integer; c,c1:char; begin writeln('Введите слова, разделенные пробелом, окочание ввода Enter:'); n:=0; repeat read(c); if c<>#13 then begin n:=n+1; s[n]:=c; end; until c=#13; writeln; for i:=1 to n do if s[i]=' 'then x:=x+' ' else x:=x+s[i]; for g:=1 to length(x) do begin if x[g] in ['a'..'z'] then x[g]:=Upcase(x[g]); end; writeln('Текст с большими латинскими буквами:'); writeln(x); writeln('Латинские буквы в алфавитном порядке:'); for c1:='A' to 'Z' do for b:=1 to length(x) do if (x[b]=c1)then write(x[b]); readln end. 6: % сам посчитаешь. Программа считает сколько раз каждая буква встречается в строке var s,s1: string; i,k,b:integer; a:array[1..32] of string; begin
a[1]:='а'; a[2]:='б'; a[3]:='в'; a[4]:='г'; a[5]:='д'; a[6]:='е'; a[7]:='ё'; a[8]:='ж'; a[9]:='з'; a[10]:='и'; a[11]:='й'; a[12]:='к'; a[13]:='л'; a[14]:='м'; a[15]:='н';a [16]:='о'; a[17]:='п'; a[18]:='р'; a[19]:='с'; a[20]:='т'; a[21]:='у'; a[22]:='ф'; a[23]:='х'; a[24]:='ч'; a[25]:='ш'; a[26]:='щ'; a[27]:='ъ'; a[28]:='ы'; a[29]:='ь'; a[30]:='э'; a[31]:='ю'; a[32]:='я'; writeln('Введите строку: '); readln(s); for i:=1 to 32 do begin b:=0; for k:=1 to length(s) do begin if(s[k] = a[i]) then Inc(b); end; s1:=a[i] + '=' + b; writeln(s1); end; end.
Answers & Comments
i:byte;
begin
writeln('Введите текст');
read(s);
while (pos('при',s)<>0) do
begin
i:=pos('при',s);
delete(s,i,3);
insert('про',s,i);
end;
write(s)
end.
1:
var s:array[1..1000] of char;
x:string;
n,i,g,b:integer;
c,c1:char;
begin
writeln('Введите слова, разделенные пробелом, окочание ввода Enter:');
n:=0;
repeat
read(c);
if c<>#13 then
begin
n:=n+1;
s[n]:=c;
end;
until c=#13;
writeln;
for i:=1 to n do
if s[i]=' 'then x:=x+' '
else x:=x+s[i];
for g:=1 to length(x) do
begin
if x[g] in ['a'..'z'] then x[g]:=Upcase(x[g]);
end;
writeln('Текст с большими латинскими буквами:');
writeln(x);
writeln('Латинские буквы в алфавитном порядке:');
for c1:='A' to 'Z' do
for b:=1 to length(x) do
if (x[b]=c1)then write(x[b]);
readln
end.
6:
% сам посчитаешь. Программа считает сколько раз каждая буква встречается в строке
var
s,s1: string;
i,k,b:integer;
a:array[1..32] of string;
begin
a[1]:='а'; a[2]:='б'; a[3]:='в'; a[4]:='г'; a[5]:='д'; a[6]:='е'; a[7]:='ё'; a[8]:='ж';
a[9]:='з'; a[10]:='и'; a[11]:='й'; a[12]:='к'; a[13]:='л'; a[14]:='м'; a[15]:='н';a [16]:='о';
a[17]:='п'; a[18]:='р'; a[19]:='с'; a[20]:='т'; a[21]:='у'; a[22]:='ф'; a[23]:='х'; a[24]:='ч';
a[25]:='ш'; a[26]:='щ'; a[27]:='ъ'; a[28]:='ы'; a[29]:='ь'; a[30]:='э'; a[31]:='ю'; a[32]:='я';
writeln('Введите строку: ');
readln(s);
for i:=1 to 32 do
begin
b:=0;
for k:=1 to length(s) do
begin
if(s[k] = a[i]) then Inc(b);
end;
s1:=a[i] + '=' + b;
writeln(s1);
end;
end.