uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.
Полное ветвление:
<em>if</em> логическое выражение <em>then</em> оператор
<em>else</em> оператор;
Неполное ветвление:
<em>if</em> логическое выражение <em>then</em> оператор;
Если ветвления вложенные и среди них есть неполные, надо помнить, что каждое <em>else</em> связывается с ближайшим предшествующим ему <em>if</em>, не имеющем <em>else</em>.
Например, рассмотрим конструкцию
<em>if</em> a>b <em>then if</em> c=d <em>then</em> x:=1 <em>else</em> x:=2;
Без упомянутого правила неясно, что имелось в виду:
<em>if</em> a>b <em>then</em>
<em>if</em> c=d <em>then</em> x:=1 <em>else</em> x:=2;
или же
<em>if</em> a>b <em>then</em>
<em>if</em> c=d <em>then</em> x:=1
<em>else</em> x:=2;
Знание правила позволяет разрешить вопрос: имеется в виду первый вариант.
А если нужно получить второй - к нашим услугам блок:
<em>if</em> a>b <em>then</em>
<em>begin if</em> c=d <em>then</em> x:=1 <em>end</em>
<em>else</em> x:=2;
Под дерево оформи так, чтобы устройство памяти компьютера было как корни, от него шло две ветки( оперативная и внешняя памяти), а там уже как листья примеры
