С Паскаль решить задачи:
1. ввести символьную строку и заменить все буквы "а" на буквы "б", как заглавные, так и строчные.
Пример:
аааббсс ААББСС
Результат:
ссСС
2. Ввести символьную строку и проверить, является ли она палиндром (палиндром читается одинаково в обоих направлениях).
Пример:
Введите строку:
АБВГДЕ
Результат:
Не палиндром.
Пример:
Введите строку:
КАЗАК
Результат:
Палиндром.
1)совместное использование информации пользователями, работающими на удаленных друг от друга компьютерах;
2) одновременная работа с документами. и программами;
3) совместное использование принтеров и других периферийных устройств.
2 ответ Протокол IP используется для адресации компьютеров в сети. В каждом пакете информации, передаваемом по сети, указан IP-адрес компьютера, благодаря которому информация и попадает по назначению. IP-адрес состоит из четырех номеров, разделенных точками. Каждое число в этом адресе занимает длину, равную одному байту, поэтому может принимать значения от О до 255.
1.
program test;
var i,k2,k3,k4,k5:integer;
a:array [1..20] of integer;
begin
k2:=0;
k3:=0;
k4:=0;
k5:=0;
for i:=1 to 20 do
begin
a[i]:=random(4)+2;
if a[i]=2 then k2:=k2+1;
if a[i]=3 then k3:=k3+1;
if a[i]=4 then k4:=k4+1;
if a[i]=5 then k5:=k5+1;
write(a[i],' ')
end;
writeln;
writeln(k2);
writeln(k3);
writeln(k4);
write(k5)
end.
2.
var i,j,v:integer;
a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random (100);
write(a[i]:3)
end;
for i:=1 to 9 do
for j:=1 to 9 do
if a[j]>a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end;
writeln;
for i:=1 to 10 do write(a[i]:3)
end.
3.
var a:array [1..10] of integer;
i,j,m,v:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3)
end;
writeln;
for i:=1 to 10 do
begin
m:=i;
for j:=i to 10 do
if a[m] mod 10 < a[j] mod 10 then m:=j;
v := a[i];
a[i]:= a[m];
a[m] := v;
write(a[i]:3)
end;
end.