В ячейке Е7 записана формула: =В4 – Е10. Её скопировали в ячейку Е6. Какой вид будет иметь формула в ячейкеЕ6? В ячейке F5 записана формула: =С4 – D8. Её скопировали в ячейку Е5. Какой вид будет иметь формула в ячейке Е5? В ячейке C6 записана формула: = D12 + E5. Ее скопировали в ячейку B8. Какой вид будет иметь формула в ячейке B8?В ячейке C2 записана формула =$E$3+D2. Какой вид приобретет формула, после того как ячейку C2 скопируют в ячейку B1?В ячейке D3 электронной таблицы записана формула =B$2+$B3. Какой вид приобретет формула, после того как ячейку D3 скопируют в ячейку E4?В ячейке A5 записана формула =$E$3+D2. Какой вид приобретет формула, после того как ячейку A5 скопируют в ячейку D8?​

1) =B3-E9

2) =B4-C8

3) =C14+D7

4) =$E$3+C1

5) =C$2+$B4

6) =$E$3+G5

// Первая программа

program One;

var a, b: Integer;

begin

write('Введите числитель: ');

read(a); {ввод числителя}

write('Введите знаменатель: ');

read(b); {ввод знаменателя}

{Правильной называется дробь, у которой модуль числителя меньше модуля знаменателя,

поэтому проверяем это условие}

if abs(a)<abs(b) then

 {Если условие выполняется, то пишем, что дробь правильная}

 writeln('Дробь правильная.')

else

 {В противном случае пишем, что дробь неправильная}

 writeln('Дробь неправильная.')

end.

// Вторая программа

program Two;

var a, b: Integer;

begin

write('Введите первое число: ');

read(a); {ввод первого числа}

write('Введите второе число: ');

read(b); {ввод второго числа}

{Проверить число на делимость можно с операции взятия остатка.

Есть остаток — число нацело не делится; остаток равен 0 -- число делится нацело}

if (a mod b) = 0 then

 {Если остатка нет, то пишем, что первое число делится нацело на второе}

 writeln('Первое число делится на второе.')

else

 {В противном случае пишем, что первое число не делится нацело на второе}

 writeln('Первое число не делится на второе.')

end.

// Третья программа

program Three;

var a, b: Integer;

begin

write('Введите первое число: ');

read(a); {ввод первого числа}

write('Введите второе число: ');

read(b); {ввод второго числа}

{Если второе число меньше первого -- то будем выводить его,

так как в ином случае первое и второе числа равны (и тогда мы можем вывести

любое из них, они же одинаковые), либо меньшее число -- первое, и мы выведем его}

write('Меньшее число: ');

if (a > b) then

 {Если второе число меньше первого, его и выводим}

 writeln(b)

else

 {В противном случае выводим первое число}

 writeln(a)

end.

Объяснение:

Пояснения находятся в фигурных скобках.

1)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
if (a<0)and(b<0) then
 begin a:=-a; b:=-b; end;
if a<0 then for var i:=1 to b do s+=a
else for var i:=1 to a do s+=b;
WriteLn(s);
end.

Пример:
-7 15
-105

2)
var n,s:integer;
begin
Readln(n);
s:=0;
for var i:=1 to n do s+=i;
WriteLn(s);
end.

Пример:
100
5050

3)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
for var i:=a to b do s:=s+i*i;
writeLn(s);
end.

Пример:
2 5
54

4)
var a,b,n:integer;
begin
Readln(a,b,n);
for var i:=1 to n do write(random(b-a+1)+a,' ');
end.

Пример:
10 20 5
11 12 14 14 18