Question

Wykonać program w free pascalu na obliczenie sumy liczb rzeczywistych s=a+b

Answer 1

Program nazwa;
var
        s,a,b:double;
begin
        s:=0;
        a:=0;
        b:=0;

        write('Podaj a: ');
        readln(a);
        write('Podaj b: ');
        readln(b);

        s:=a+b;

        writeln('s = a + b');
        writeln('s = ',s:0:2);
readln;
end.