Презентация на тему "Твори кино,живопису"​

Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.

ответ:

var

        str: string;

        i, count: integer;

begin

        write('your string: ');

        readln(str);

        i : = length(str);

        if i > 0 then begin

                count : = 1;

                while i > 0 do begin

                        if str[i] = ' ' then

                                count : = count + 1;

                        i : = i - 1;

                end;

        end

        else

                count : = 0;

        writeln('number of words: ', count);

readln;

end.

объяснение: