Ввести фамилию, имя и отчество, как одно данное типа строка. определить длину строки и количество гласных в нем. вывести третье слово и количество букв в фамилии.
167
447
Ответы на вопрос:
Const gl=['а','е','ё','и','о','у','ы','э','ю','я', 'а','е','ё','и','о','у','ы','э','ю','я']; var s,fam,otch: string; i,j,n,ngl: integer; begin writeln('введите через один пробел фамилию, имя и отчество'); readln(s); fam: =''; i: =1; n: =length(s); repeat fam: =fam+s[i]; i: =i+1 until s[i]=' '; otch: =''; j: =n; repeat otch: =s[j]+otch; j: =j-1 until s[j]=' '; { im: =copy(s,i+1,j-i-1); так можно получить имя } ngl: =0; for i: =1 to n do if s[i] in gl then ngl: =ngl+1; writeln('длина введенной строки в символах равна ',n); writeln('количество гласных букв в строке равно ',ngl); writeln('введено отчество: ',otch); writeln('количество букв в фамилии равно ',length(fam)) end. тестовое решение: введите через один пробел фамилию, имя и отчество иванов петр сергеевич длина введенной строки в символах равна 21 количество гласных букв в строке равно 8 введено отчество: сергеевич количество букв в фамилии равно 6
Популярно: Информатика
-
з1з102.08.2022 14:51
-
kolya1444524.01.2023 09:31
-
nikolay94602.03.2020 07:02
-
5777585877584757503.02.2020 20:35
-
jontfols99921.06.2022 10:12
-
Spasibozaotvet430.09.2022 11:02
-
ооо32221.06.2021 08:42
-
pohta00000026.05.2022 16:31
-
Ainur052923.04.2021 16:31
-
АнютаП103.02.2023 13:18