Можно ли создать файл, у которого будет пустое расширение?

ответ:

нет нельзя так как у файла должно быть расширение ну или можно

ответ:

по идеи нет, как вариант можно попробовать включить отображение расширений и ввести невидимый символ (alt+numpad 225 или 255).

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.