
Fozar
7 год назад
Записать программу которая по двум введеным числам находит сумму дробных частей и сумму целых частей. на языке ПАСКАЛЕ
ОТВЕТЫ

Братцов
Jul 16, 2019
Var a,b,c,d:real;
begin
readln(a,b);
c:=frac(a)+frac(b);
d:=(a-frac(a))+(b-frac(b));
writeln(c);
writeln(d);
end.
begin
readln(a,b);
c:=frac(a)+frac(b);
d:=(a-frac(a))+(b-frac(b));
writeln(c);
writeln(d);
end.
299
Смежные вопросы: