даны 3 строки. определить в какой строке чаще встречаются цифры. паскаль!

+ 0 -

Pashasergo

19 февр. 2014 г., 15:03:09 (10 лет назад)

В 3 должно быть я так думаю.

+ 0 -

Kopalinapolina

19 февр. 2014 г., 17:10:18 (10 лет назад)

Var m:set of char;
s1,s2,s3,s4,s:string;
i,k,p,j:integer;
begin
writeln ('введи первую строку');
readln (s1);
writeln ('введи вторую строку');
readln (s2);
writeln ('введи третью строку');
readln (s3);
m:=['0'..'9'];
s4:=s1;
for j:=1 to 3 do
    begin
    if j=2 then s4:=s2;
    if j=3 then s4:=s3;
    for i:=1 to length (s4) do
    if s4[i] in m then k:=k+1;
    if k>p then
       begin
       p:=k;
       s:=s4;
       end;
    k:=0;
    end;
if p<>0 then begin
writeln ('Строка с наибольшим количеством цифр');
writeln (s);
end else
writeln ('Ни в одной строке нет цифр');
readln;
end.