Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Решите пожалуйста эти задачи по информатике

Ответ оставил Гость

Program n1;
uses crt;
var
s:string;   
i,k:integer;
begin
writeln(Введите строку);
readln(s);
for i:=1 to length(s) do
if s[i]=и then k:=k+1;
writeln(k, раз(а));
end.

program n2;
uses crt;
var s1,s2:string;
begin
writeln(Введите первую строку);
readln(s1);
writeln(Введите вторую строку);
readln(s2);
if s1[1]=s2[1] then writeln(Совпадают) else writeln(Не совпадают);
end.

program n3;
uses crt;
var
s:string;
i:integer;
begin
writeln(Введите строку);
readln(s);
for i:=1 to length(s) do
if s[i]=н then write(i, );
end.

program n4;
uses crt;
var
 s:string; 
  i:integer;
begin
writeln(Введите строку);
readln(s);
for i:=1 to length(s) do
if s[i]=. then begin
s[i]:=*; insert(*,s,i+1);
end;
writeln(s); 
end.

program n5;
uses crt;
var
s:string; 
i:integer; 
 a,b:char;
begin
writeln(Введите строку); readln(s);
writeln(Введите символ А); readln(a);
writeln(Введите символ B); readln(b);
for i:=1 to length(s) do begin
if s[i]=a then s[i]:=b;
if s[i]=b then s[i]:=a; end;
writeln(s);
end.