Please help дан массив строк. найдите количество маленьких латинских букв во всех строках массива. размер массива задан константой n. используйте заголовок: function calc(m : tmas): integer;

106

319

Посмотреть ответы 2

Ответы на вопрос:

theonestop1234

Информатика

4,5(16 оценок)

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