Var a,b,c,p: Real;
begin
writeln('Введите a,b,c,p');
readln(a,b,c,p);
writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.
Всё просто. До из суммы вычитается загаданное число. Возьмите число 0 и сами всё поймёте
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.
202.192.131.31 ПРАВИЛЬНЫЙ ЭТОТ
Но ни в коем случае не
202.131.312.19 ( так как не может быть больше 255 число) ЗАПОМНИ