Помогите решить задачку по программирование на Паскале:
Ввести две строки. Определить какая из них длинее и в какой больше слов.
Ввести две строки. Определить какая из них длинее и в какой больше слов.
if (length(s1) > length(s2)) then writeln( 'первая длиннее' );
for i := 1 to length(s1) do if (s1[ i ] = ' ') then inc(c1);
for i := 1 to length(s2) do if (s2[ i ] = ' ') then inc(c2);
if (c1 > c2) then writeln( 'в первом больше слов' );
var
s1 : string;
s2 : string;
cnt1: integer;
scnt1: integer;
cnt2: integer;
scnt2: integer;
i: integer;
begin
write('Enter first string:');
readln(s1);
write('Enter second string:');
readln(s2);
scnt1 := length(s1);
if scnt1>0 then begin
cnt1:=1;
for i:=1 to scnt1 do begin
if s1(i) = ' ' then ВМЕСТО КРУГЛЫХ СКОБОК КВАДРАТНЫЕ
cnt1 := cnt1 + 1;
end;
end
else
scnt1:=0;
scnt2 :=length(s2);
if scnt2>0 then begin
cnt2 :=1;
for i:=0 to scnt2 do begin
if s2(i) = ' ' then ВМЕСТО КРУГЛЫХ СКОБОК КВАДРАТНЫЕ
cnt2 := cnt2 + 1;
end;
end
else
cnt2:=0;
writeln('Symbols first string count:', scnt1);
writeln('Symbols second string count:', scnt2);
writeln('Words first string count:', cnt1);
writeln('Words second string count:', cnt2);
if scnt1 [символ больше] scnt2 then
writeln('Symbols in first string > Symbols in second string');
if scnt1 [символ меньше ] scnt2 then
writeln('Symbols in second string > Symbols in first string');
if scnt1=scnt2 then
writeln('Symbols in first string = Symbols in second string');
if cnt1 [символ больше] cnt2 then
writeln('Words in first string > Symbols in second string');
if cnt1 [символ меньше ] cnt2 then
writeln('Words in second string > Words in first string');
if cnt1=cnt2 then
writeln('Words in first string = Symbols in second string');
readln;
end.