Экономика
Гость
11.07.2019
Решите пожалуйста задачи :

1) Вывести на экран общую длину фамилии, имени и отчества

2) Вывести на экран свои инициалы

3) Определить количество букв "и" в фамилии
Ответы:
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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос Решите пожалуйста задачи :

1) Вывести на экран общую длину фамилии, имени и отчества

2) Вывести на экран свои инициалы

3) Определить количество букв "и" в фамилии по предмету Экономика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.