Придумайте любую программу в FreePascale

Question

Информатика

Неонила

15 апреля, 02:09

Придумайте любую программу в FreePascale

+2

Ответы (1)

Знаете ответ на вопрос?

Эллада · Answer 1

Программа читает два числа, выводит их сумму, разницу, деление первого на второе и произведение

program smt;

var

a, b:real;

begin

readln (a, b) ;

writeln ('a+b=', a+b) ;

writeln ('a-b=', a-b) ;

writeln ('a*b=', a*b) ;

write ('a/b=', a/b) ;

end.