Какая формула будет получена при копировании в ячейку D3. формулы из ячейки D2:А) =A2*C2;Б) =$A$2*C3;В) =$A$2*$C$3;Г) =A2*C3;​

Г ответ будет бро . во как

Program zadacha3;
var V, Vo,a ,b, t, c, H: integer;
begin
  writeln('моя программа вычисляет скорость при равноускоренном движении');
  writeln('введите начальную скорость');
  readln(a);
  writeln('введите ускорение');
  readln(a);
  writeln('введите время');
  readln(t);
  writeln('введите шаг');
  readln(H);
  for b:=t to c do
    begin
      t:=t+H;
      V:=Vo+a*t;
    end;
  writeln('скорость равна V:= ',V);
end.

После эндом на закрытии цикла не стояло точки с запятой, и где у тебя написано в третей строчке снизу 7V, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался.
И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла

Var f:file of integer;   
 a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
 begin 
 a:=random(100); 
 write(f,a); 
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin 
 read(f,a); 
write(a,' ');
 end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a); 
 write(a,' '); 
end;
close(f);
readln
end.