program Exam11;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
st=string[80];
var s,s1,s2:st;
b,c:integer;
i,n,m,j,kzif:integer;
Function K(s:st;var kzif:integer):integer;
begin
kzif:=0;
for i:=1 to length(s) do
if (s[i]>='0') and (s[i]<='9') then kzif:=kzif+1;
writeln('*************');
writeln;
end;
begin
writeln('Vvedite elementi:');
readln(s1);
writeln('Vvedennaya stroka:');
writeln(s1);
writeln;
K(s1,kzif);
writeln('Kol-vo cifr:',kzif);
b:=kzif;
writeln;
writeln('Vvedite elementi:');
readln(s2);
writeln('Vvedeneya cifr:');
k(s2,kzif);
writeln('kol-vo slov:',kzif);
c:=kzif;
if b>c then writeln('V pervom massive bolse cifr');
if bif b=c then writeln('Kol-vo cifr v massive sovpadayet');
writeln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.





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