д/3 на 20 октября. Разобрать решение задач и тем, кто делает синтаксические ошибки ВЫУЧИТЬ

Упражнения

1.  С клавиатуры вводят символ. Составьте программу, которая выводит два следующих символа.

program upr4_2_1;

var    s: char;

begin

     write ('Введите символ  '); 

     readln (s);{ввод символа}

     writeln ('Следующий за ',s, ' символ ',succ(s)); 

{вывод следующего символа}

writeln ('Следующий за ',succ(s), ' символ ',succ(succ(s)));  {вывод следующего символа}

end.

2.  С клавиатуры вводят код символа. Составьте программу, которая выводит предыдущий символ.

program upr4_2_2;

var    m: integer;

begin

     write ('Введите код символа  '); readln (m);{ввод кода символа}

     writeln ('Предыдущий символ ',pred(chr(m)));

{вывод предыдущего символа}

end.

3.  Составьте программу, которая выводит символы с кодами от 60 до 70.

Технология составления программы:

program upr4_2_3;

var    k: integer;

begin

     for k:=60 to 70 do

     write (k,'  ', chr(k),'  '); {вывод символов по их кодам}

end.