№3 представить ниже числа в виде вещественных констант без экспонент. 4)7.46д1 и объясните, , что такое д1

     Во-первых, там должно стоять D латинское.
7.46D1 = 7.46 × 10¹ = 74.6

     Буква D исторически "пришла" из языка Fortran.
Числа в формате с плавающей точкой могли занимать 4 или 8 байт и назывались соответственно числами с одинарной и двойной (Double Precision) точностью. При записи констант в программе, а также при вводе и выводе нужно было как-то различать, какой точности число, поэтому договорились писать вместо цифры 10, за которой следовал показатель степени, букву E (Exponent) для одинарной точности и букву D для двойной.

     Когда был создан "младший брат" Фортрана - язык Basic - велосипед изобретать на стали и вместе с синтаксисом для записи формул, в Бейсик перекочевали и буквы E, D для записи чисел с плавающей точкой.

     В современных версиях языков записи 7.46D1 и 7.46E1 как правило эквивалентны, поскольку обозначают одно и то же число, а современные процессоры всегда работают в двойной точности.

Возможны опечатки
это язык си++ он похож на си#

#include <iostream>
using namespace std;

int main()
{
int n;
cin >> n;

// пункт а, если первая больше  выводит 1, если последняя то 3, если равны то ==. Аналогично с пунктами в и с

cout << "a)";
if (n / 100 > n % 10)
cout << 1 << "\n";
else if (n / 100 < n % 10)
cout << 3 << "\n";
else 
cout << "==" << "\n";

cout << "b)";
if (n / 100 > n / 10 % 10)
cout << 1 << "\n";
else if (n / 100 < n / 10 % 10)
cout << 2 << "\n";
else 
cout << "==" << "\n";

cout << "c)";
if (n / 10 % 10 > n % 10)
cout << 2 << "\n";
else if (n / 10 % 10 < n % 10)
cout << 3 << "\n";
else 
cout << "==" << "\n";
//system("pause");
}

Const
  n=7;

type
  V=array[1..n] of real;
 
procedure InitMas(var a:V; fn:string);
{ инициализция массива из файла }
var
  i:integer;
  f:Text;
begin
  Assign(f,fn);
  Reset(f);
  for i:=1 to n do
    if not Eof(f) then Read(f,a[i]) else a[i]:=0;
  Close(f)
end;

procedure MyProc(var a:V; t:real; var k:integer);
{ замена значением t элементов массива, меньших t }
var
  i:integer;
begin
  k:=0;
  for i:=1 to n do
    if a[i]<t then begin a[i]:=t; Inc(k) end
end;

procedure OutMas(var a:V; an:string);
{ вывод элементов массива }
var
  i:integer;
begin
  Writeln('Массив '+an);
  for i:=1 to n do Write(a[i],' ');
  Writeln
end;

procedure Work(var a:V; fn,an:string; t:real; var k:integer);
{ полный цикл обработки массива по заданию }
begin
  InitMas(a,fn);
  MyProc(a,t,k)
end;

var
  P,C:V;
  k1,k2:integer;
  t:real;
begin
  Writeln('Введите значение T: '); Read(t);
  Work(P,'p.dat','P',t,k1);
  Work(C,'c.dat','C',t,k2);
  if k1=k2 then Writeln('Число замен равно ',k1)
  else
    if k1>k2 then OutMas(P,'P') else OutMas(C,'C')
end.

Тестовое решение:
Введите значение T:
0.005
Массив P
0.005 1.54 0.005 0.005 0.005 1.2 0.005