Question

Что будет выведено?

var a,b,c,d,x: real;
...
a:=1; b:=2; c:=3; d:=7;
writeln(a/b:0:2);
x:=b/c;
writeln(x:0:2,frac(x):2);
writeln(trunc(x):0:2,round(x):2);
x:=d/c;
writeln(x:0:2,frac(x):2);
writeln(trunc(x):0:2,round(x):2);

Answer 1

Решение представлено во вложении.

Язык: Pascal

Примечание: //trunc(x):0:2 - так можно форматировать вывод только результата, который имеет вещественный тип.  trunc(x) - целая часть вещественного числа X. Поэтому ":0:2" здесь лишнее.

Будет выведено:

0.50

0.670.666666666666667

0 1

2.330.333333333333333

2 2