Pascal 7 урок

Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:

одним вызовов write (все три) -- т.е. передав несколько аргументов.

var a, b, c : char;
begin
   a := 'f';
   b := '%';
   c := 'b';
   writeln(a, ' ', b, ' ', c);
   readln();
end.
          

отдельно вызывая writeln для вывод значения каждой переменной

var a, b, c : char;
begin
   a := 'f';
   b := '%';
   c := 'b';
   writeln(a);
   writeln(b);
   writeln(c);
   readln();
end. 

Получите от пользователя значения переменной, сравните его со значением символа пятёрки 5 и выведите результат сравнения на экран.

 var a : char;
begin
   writeln('vvedite simvol ');
   readln(a);
   writeln('a = `5` : ', a = '5');
   readln();
end.

Получите от пользователя значения двух символьных переменных, сравните значение каждой с символьным литералом (используйте два разных) и выведите два результата сравнения на экран -- 1) сравнение первой переменной с первым литералом и 2) сравнения второй переменной со вторым литералом.

var a, b, c, d : char;
begin
   c := '7';
   d := '*';
   writeln('vvedite simvol a ');
   readln(a);
   writeln('vvedite simvol b ');
   readln(b);
   writeln('a = c : ', a = c, ' b = c : ',b = d);
   readln();
end.

Получите от пользователя значения три символьных значения, выясните -- равны ли все они друг другу и уведомьте о результатах сравнения пользователя, выведя итог в консоль.
Подсказка: для получения итогового результата нескольких сравнений используйте одну из логических операций.

var a, b, c : char;
begin
   writeln('vvedite simvol a ');
   readln(a);
   writeln('vvedite simvol b ');
   readln(b);
   writeln('vvedite simvol c ');
   readln(c);
   writeln('a = b = c : ', (a = b)AND(c = b) );
   readln();
end.

Получите от пользователя значения четырёх символьных значения, выясните -- выполняется ли следующее условие:
"""первая переменная равна третьей, не равна второй или третья равна четвертой"""
Составьте по указанному условию логическое выражение и выведите его результат на экран.

var a, b, c, d : char;
begin
   writeln('vvedite simvol a ');
   readln(a);
   writeln('vvedite simvol b ');
   readln(b);
   writeln('vvedite simvol c ');
   readln(c);
   writeln('vvedite simvol d ');
   readln(d);
   writeln('c = a <> b ili c = d : ', ((c = a) and (a<>b))or(c = d) );
   readln();
end.