Символьные переменные

1. Определите результат программы:

Program Pr1;

var i, j: char;

Begin

For i:=’a’ to ‘f’ do

For j:=’a’ to i do

write(upcase(j));

End.

2. Какое значение принимает переменная s после выполнения таких операторов:

• · s:=’a’; i:=ord(s)+3; s:=succ(chr(i));

• · s:=’d’;

for i:=’a’ to ‘c’ do s:=pred(s);

3. Напишите программу вывода на экран последовательности символов:

4. С клавиатуры вводится последовательность произвольных символов. Признак окончания ввода – символ ‘.’. Определите, каких символов ‘$’ или ’р’ (долларов или рублей) больше.

5. С клавиатуры вводится последовательность символов. Признак окончания ввода – символ ‘.’.  Подсчитайте количество цифр в ней.