S:=‘информатика’;
Т:=S[10]+ S[9]+ S[2]+ S[4];
Var s:string;
Begin
Read(s);
Write(s[1]);
End.
Var s1,s2,s3:string;
Begin
Read(s1);
Read(s2);
s3:=s1[1]+s2[1];
Write(s3);
End.
Var s:string;
i,k:integer;
Begin
Read(s);
k:=0;
For i:=1 to length(s) do
If s[i]=‘а’ then k:=k+1;
Write(k);
End.
Var s:string;
i:integer;
Begin
Read(s);
For i:=1 to length(s) do
If s[i]=‘а’ then s[i]:=‘о’;
Write(s);
End.
Var s, rez:string;
Begin
Read(s);
Rez:=s[1]+s[length(s)];
Write(rez);
End.
Var
a,b:string;
begin
readln(a);
readln(b);
if length(a)>length(b) then write(a) else write(b);
end.
Var x,y:byte;
a,b:string;
begin
readln(a);
readln(b);
x:=length(b); {определяем длину слова b, чтобы узнать номер последнего символа}
if a[1]=b[x] then write('верно') else write('неверно');
end.
Пример 9. Сравнить длину двух строк введенных с клавиатуры.
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть