Please help дан массив строк. найдите количество маленьких латинских букв во всех строках массива. размер массива задан константой n. используйте заголовок: function calc(m : tmas): integer;
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
Егерь - е, художник - х, т - тренер, в - врач, с - Семен, р - Роман, н - Николай, а - Артур. Итак. Так как е левее т, а в - правее, то т живет не с краю, а, поскольку х тоже живет не с краю, то и е, и в живут с краю, е - с левого, а в - с правого, соответственно условиям 1 и 2. Е живет рядом с х, из этого следует, что х справа от е и слева от т, так как х не может быть слева от е, потому что е живет с левого краю. Т, соответственно, живет в последнем оставшемся доме, то есть между х и в. Р живет рядом с т, то есть, р - не т и живет либо слева от т, либо справа. А живет правее р, что означает, что р живет в доме, что слева от т. Также а живет не рядом с р, то есть в крайнем справа доме. С - не егерь, значит, он живет в любом доме, кроме крайнего левого, но в домах слева и справа от т уже живут р и а, то есть с живет в доме т (Семен - тренер). Ну и оставшийся дом, человек и профессия - Николай, егерь, крайний слева дом. Итоги: Первый дом - Николай, егерь. Второй дом - Роман, художник. Третий дом - Семен, тренер. Четвертый дом - Артур, врач.
Язык программирования Паскаль m - количество ячеек в строке n - кол-во ячеек в столбце Var q:Array[1..m] w:array[1..n] of integer; v,i :integer; Read(a); Read(b); begin 1)v:=0 for i:=1 to n do for i:= 1 to m do begin if q[i] mod 2 = 0 then v:=v+1; end; if v = m then writeln('Есть строка состоящая только из нечетных элементов'); end. 2)v:=0 for i:=1 to n do for i:= 1 to m do begin if (q[i] mod a = 0) or (q[i] mod b = 0) then v:=v+1; end; if v = m then writeln('Есть строка состоящая только из элементов кратных числу a или b'); end. 3) v:=0 for i:=1 to n do for i:= 1 to m do begin if q[i] < 0 then v:=v+1; end; if v = m then writeln('Есть строка состоящая только из отрицательных чисел'); end. Если что-то не понятно, то постараюсь объяснить.
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