Программы, которые распространяются разработчиками на платной основе лицензионные
Ответ №1
С файлом ничего не приключилось, где был, там и лежит
//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
<span>end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
<span>end.</span></span>
Напишите Writeln('P = ', p:0:2);
У Вас результат правильный, просто Турбопаскаль вещественные любит выводить с плавающей точкой.