Задание в Паскале.
Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и количество букв "а" в ней; вывести три буквы (свои инициалы) с точкам.
Var st,last_name: string;
i,j,n: integer;
k: integer;
ini :array[1..2] of char;
begin
readln(st);
n:=length(st);
last_name:= copy(st, 1, pos( , st) - 1);
j:=1;
for i:=1 to n do
begin
if st[i]=а then Inc(k);
if st[i]= then
begin
ini[j]:=st[i+1];
Inc(j);
end;
end;
writeln(Длина строки: +n);
writeln(Количество букв а: +k);
writeln(last_name+ +ini[1]+.+ini[2]);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
