С) 824
т.к. в 8-ной системе могут использоваться только цифры от 0 до 7
1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
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;