Var
a:array[1..?сколько у тебя элементов в массиве?] of integer;
b,c,i:integer;
begin
read(b,c);
for i:=1 to /kol-vo elementov v massive/ do
begin
read(a[i]);
write(a[i],' ');
end;
writeln
for i:=1 to /kol-vo elementov v massive/ do
begin
if i mod 2=0 then
a[i]:=a[i]+b
else
a[i]:=a[i]-c;
write(a[i],' ')
end;
end.
Текстовый процессор может изменять шрифт удалять красить заменять сохранять форматировать и много много еще а редактор может только редактировать
//Pascal ввод с клавиатуры
var A, B: integer;
begin
write('Введите A, B = '); readln(A, B);
writeln(A+B);
end.
//Pascal ввод/вывод через текстовый файл
//input.txt должен находиться в папке с программой
var
A, B: integer;
t1, t2: text;
begin
assign(t1, 'input.txt');
assign(t2, 'output.txt');
reset(t1);
readln(t1, A, B);
close(t1);
rewrite(t2);
write(t2, A+B);
close(t2);
end.
я так понимаю, что данные цифр представлены в двоичной системе счисления.
111+10101=11100
10110+10000010=10011000
100101+1101111=10010100
1000011+11001001=100001100
10101-111=10010
1000010-10110=101100
1101111-100101=1001010
11001001-1000011=10000110