Сложное по информатике: нужно написать программу на паскале, не используя if, then, else, с таким результатом: введите число если число четное, то вывести 10; если нечетное, то вывести -10
В программе использованы команды эмулятора машины Поста К.Полякова: > N переместить каретку вправо на 1 ячейку и перейти к строке с номером N < N переместить каретку влево на 1 ячейку и перейти к строке с номером N 0 N записать в текущую ячейку «0» (стереть метку) и перейти к строке с номером N 1 N записать в текущую ячейку «1» (поставить метку) и перейти к строке с номером N ? N, M если текущая ячейка содержит «0» (не отмечена), то перейти к строке с номером N, иначе перейти к строке M . остановить программу
PROGRAM A22; const max = 42; var vt:array[1..max]of byte; i,n:byte; x:integer;
BEGIN n := max; writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].'); readln(n); write('Введите число которое будет добавлено к каждому элементу.'); readln(x);
writeln('Начальный Массив' ); randomize; for i:=1 to n do begin vt[i]:=random(1,3); write(vt[i], ' '); end; writeln(' ');
writeln('Массив c результатом' ); for i:=1 to n do begin write(vt[i]+x, ' '); end; writeln(' ');
![Массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число](/tpl/images/0850/9584/b1a32.jpg)
begin
write('a = ');
readln(a);
writeln(-20*(abs(a) mod 2)+10);
end.
Пример:
a = 28
10