1. var s,s1:string; i:integer; begin readln(s); s1:=s; for i:=1 to length(s1) do begin if s1[i]='а' then s1[i]:='б' else if s1[i]='А' then s1[i]:='Б' else if s1[i]='б' then s1[i]:='а' else if s1[i]='Б' then s1[i]:='А'; end; writeln(s1);end.
2. var s,s1:string; i,k:integer; begin readln(s); s1:=s; i:=1; k:=1; while pos(' ',s1)>0 do begin delete(s1,1,pos(' ',s1)); k:=k+1; end; writeln(k); end.
3. var s,famil,s1,imya,otch:string; i:integer; begin readln(s); famil:=copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); imya:=copy(s,1,1); delete(s,1,pos(' ',s)); otch:=copy(s,1,1); s1:=concat(imya,'.',' ',otch,'.',' ',famil); writeln(s1); end.
1) Как правильно и почему говрить: "Значение Интернета" или "Значение Интернет". (Интернет обычно не склоняется, но после указа Путина, что с Русским языком можно делать что угодно, и кофе стало женского рода - Интернет склоняем. Тоесть сейчас допустимы оба варианта) 2) Как можно заработать в сети Интернет? (Создать популярный сайт, бог или страничку и продовать на ней рекламные места...) 3) Интернет или бичь современного человека? (вопрос риторические.. можно годами его обсуждать) 4) Где находится Интернет? (Вопрос с подковыркой... Интернет - это связи. Он нигде не находитсмя, так же как нигде не находится "телефонный звонок" 5) С каких технологий осуществляется доступ в Интернет? (Приводить здесь ответ не буду - писать много) 6) Какие протоколы используются для доступа в Интернет? (Приводить здесь ответ не буду - писать много)
7) Почему слово Интернет надо писать с большой буквы? (Потомучто это название одной из глобальных компьютерных сетей)
var s,s1:string;
i:integer;
begin
readln(s);
s1:=s;
for i:=1 to length(s1) do begin
if s1[i]='а' then s1[i]:='б' else
if s1[i]='А' then s1[i]:='Б' else
if s1[i]='б' then s1[i]:='а' else
if s1[i]='Б' then s1[i]:='А';
end;
writeln(s1);end.
2.
var s,s1:string;
i,k:integer;
begin
readln(s);
s1:=s; i:=1; k:=1;
while pos(' ',s1)>0 do begin
delete(s1,1,pos(' ',s1));
k:=k+1;
end;
writeln(k);
end.
3.
var s,famil,s1,imya,otch:string;
i:integer;
begin
readln(s);
famil:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
imya:=copy(s,1,1);
delete(s,1,pos(' ',s));
otch:=copy(s,1,1);
s1:=concat(imya,'.',' ',otch,'.',' ',famil);
writeln(s1); end.