Составить программу, которая выводит на экран символы с 33 по 255 и их номера

var i:integer;

Begin

  for i:= 33 to 255 do

    writeln(i,' = ', chr(i));

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.

объяснение:

даром ничто не дается: судьба

жертв искупительных просит

в стремленье к идеалу дурного, впрочем, нет.

воля и труд человека дивные дивы творят!

знай: сила не в богатстве, не в том – велик ли, мал ли чин а в равенстве и братстве!

о сердце не научится любить,которое устало ненавидеть.

той руки удар смертелен, которая ласкала нас.

у счастливого недруги мрут, у несчастного друг умирает.

еслиб небыло животных мир казался бы серым и скучным мяуканья кошки,без гавканья своей собаки.животные как друг,а еслиб небыло друзей и несмог разговарить и умер от скуки.вот зачем нужны животные.