Bearmon
5 год назад
Составьте программы в PACKAL ABC для следующих задач:1)С клавиатуры вводится три вещественных числа. найти целую часть от суммы этих вещественных чисел.2)С клавиатуры вводится целое число. Найди дробную часть от деления целого числа на n3)С клавиатуры вводится четыре вещественных числа. Найти сумму этих вещественных чисел и округлить ее.
ОТВЕТЫ
Мира
Oct 24, 2020
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.
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.
811
Смежные вопросы:
