1)
Л -> b
е -> a
ш -> c
a -> не определена
2) Е - здесь pred - предыдущий символ, succ - последующий символ
3) 67 - здесь код латинской заглавной буквы F равен 70, поэтому:
pred(70-2) = pred (68) = 67
Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.
Разъемы Питания, поднакопители ,слотв под оперативку, разъемы подключения кнопок управления
113)Вторая мировая война
114)Возвергающий вулкан
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.