ДК
Дима Курильский

Помогите решить задачку по программирование на Паскале:

Ввести две строки. Определить какая из них длинее и в какой больше слов.

SL
Soval Lngro

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.

Похожие вопросы
Помогите по паскалю решить задачку PLEASE!!!!
помогите решить задачу по программированию, паскаль
помогите решить задачку по программированию
Помогите решить задачки по программированию Turbo Pascal
Помогите пожалуйста решить задачку в паскале.
Помогите с программированием (паскаль)
помогите решить задачку в паскале
Кто разбирается в программировании на Java? Помогите решить задачку!
Помогите с программированием в паскале
Помогите пожалуйста решить задачи по программированию (паскаль)