program Exam18;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
mas=array[1..10] of char;
var
s,s1,s2:mas;
n,i,j,m,l,k,d,f,g:integer;
Procedure Q(v:mas;k:integer; var d,f,g:integer);
begin
d:=0;f:=0;g:=0;
for i:=1 to length(v) do begin
if v[i] in ['1','2','3','4','5','6','7','8','9','0'] then d:=d+1;
if v[i] in ['q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m']
then f:=f+1;
if v[i] in['.',',',';',':','?','!'] then g:=g+1;
end;
end;
begin
writeln('Vvedite razmernost pervogo massiva:');
readln(n);
writeln('Vvedite elementi:');
for i:=1 to n do readln(s[i]);
writeln('Vveli:');
for i:=1 to n do
write(s[i]);
writeln;
writeln('**********************');
Q(s,n,d,f,g);
writeln('Kol-vo cifr v stroke:',d);
writeln('**********************');
writeln;
writeln('Vvedite razmernost vtorogo massiva:');
readln(m);
writeln('Vvedite elementi:');
for i:=1 to m do readln(s1[i]);
writeln('Vveli:');
for i:=1 to m do
write(s1[i]);
writeln;
writeln('**********************');
q(s1,m,d,f,g);
writeln('Kol-vo bukv v stroke:',f);
writeln('**********************');
writeln;
writeln('Vvedite razmernost tretego massiva:');
readln(l);
writeln('Vvedite elementi:');
for i:=1 to l do readln(s2[i]);
writeln('Vveli:');
for i:=1 to l do
write(s2[i]);
writeln;
writeln('***********************');
q(s2,l,d,f,g);
writeln('Kol-vo znakov prepinanija v stroke:',g);
writeln('***********************');
writeln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.