Den UA, - seclub.org/forum/goto/10934708/

помогите пожалуйста написать программу ,чтобы можно было вычитать числа ------------------ введите число 1: Введите число 2: Сумма: ------------------ зарание спасибо

mcRepin, уж такую простотень самому нелегче написать? / не сумма, а разность, раз вычитание

F!REV!STA, я бы судовольствием но я не знаю язык этот , меня попросил друг найти , а задание я периписал как ему сказали

mcRepin,
---
var a,b:real;
begin
readln(a,b);
writeln(a+b);
writeln(a-b);
readln;
end.
---
Вот программа эта, выводит и сумму, и разность

Может у кого есть написанный алгоритм дейкстры?

Henter, tinyurl.com/27j3ycs - на первой же странице есть, и не одна ссылка.

cHeRsAnYa1,Ты думаешь я не искал? Там или сами ищут или реализация левая какая то. Ну да ладно, я уже и сам его дописал.

Кто нибуть может написать функцию для округления дробных чисел(наподобе round())

foldel, x:=1.56; if ((x mod 1)<0.5) then y:=x div 1 else if x>=0 then y:=(x div 1) +1 else y:=(x div 1) -1; как-то так.

foldel, if frac(x)<0.5 then x:=int(x) else x:=int(x)+1;

BlackKoshak, разве mod и div определены для типов кроме целых?