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

Question

Kularis 09.25.18

Решено

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

144

ОТВЕТЫ

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.

6

Отв. дан 2021-11-14 00:00:00 Morlugda

Другие вопросы в разделе - Математика