Question

Составьте программы в PACKAL ABC для следующих задач:
1)С клавиатуры вводится три вещественных числа. найти целую часть от суммы этих вещественных чисел.
2)С клавиатуры вводится целое число. Найди дробную часть от деления целого числа на n
3)С клавиатуры вводится четыре вещественных числа. Найти сумму этих вещественных чисел и округлить ее.

Answer 1

1)
Program n1;
var a,b,c: real;
sum: integer;
begin
readln(a,b,c);
sum:=trunc(a+b+c);
writeln(sum);
end.
2)
Program n2;
var a,n: integer;
x: real;
begin
readln(a,n);
x:=frac(a/n);
writeln(x)
end.
3)
Program n3;
var a,b,c,d: real;
sum: integer;
begin
readln(a,b,c,d);
sum:=round(a+b+c+d);
writeln(sum);
end.