Ребята помогите пожалуйста. Нужно решить задачу в виде процедуры Паскаль.
Даны три вещественных числа. Составить процедуру нахождения целой части числа. Найти сумму чисел которые получились
Умоляю кто нибудь, не получается
Даны три вещественных числа. Составить процедуру нахождения целой части числа. Найти сумму чисел которые получились
Умоляю кто нибудь, не получается
More Questions From This User See All
Answers & Comments
var
a,b,c,sum:real;
procedure cel(var x:real);
begin
x:=trunc(x);
end;
begin
sum:=0;
write('Введите a,b,c: '); readln(a,b,c);
cel(a); cel(b); cel(c);
sum:=sum+a+b+c;
writeln('Сумма: ',sum);
end.