Question

Решите пожалуйста задачи :
1) Вывести на экран общую длину фамилии, имени и отчества
2) Вывести на экран свои инициалы
3) Определить количество букв "и" в фамилии

Answer 1

var  n, f, o: string;  a, i: integer;
begin 
write('Введите фамилию '); 
Readln(f); 
write('Введите имя '); 
Readln(n); 
write('Введите отчество '); 
Readln(o); 
a := length(n) + length(f) + length(o); 
Writeln('Длина имени, фамилии и отчества равна ', a); 
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. '); 
a := 0; 
for i := 1 to length(f) do   
if f[i] = 'и' then a := a + 1; 
Writeln('Количество букв и в фамилии ', a);
end.