please help
Дан массив строк. Найдите количество маленьких латинских букв во всех строках массива. Размер массива задан константой N. Используйте заголовок: function calc(m :Tmas):integer;
Дан массив строк. Найдите количество маленьких латинских букв во всех строках массива. Размер массива задан константой N. Используйте заголовок: function calc(m :Tmas):integer;
More Questions From This User See All
Answers & Comments
Verified answer
Const n=4;type Tmas=array[1..n] of string;
var s:Tmas; i:integer;
function calc(m :Tmas):integer;
var k,i,j:integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to length(m[i]) do
if m[i][j] in ['a'..'z'] then k:=k+1;
calc:=k;
end;
begin
for i:=1 to n do readln(s[i]);
writeln('Количество маленьких латинских букв = ',calc(s));
end.
Пример:
Program p1;
Begin
Writeln(2+3);
End.
Количество маленьких латинских букв = 19