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

Question

Информатика

Корнюха

2 ноября, 01:13

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

+3

Ответы (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.