var x1,x2,x3,x4,x5: integer;
s: real;
begin
read(x1,x2,x3,x4,x5);
s: = (x1+x2+x3)/(x4+x5);
if round(s)=s then writeln("celoe - "s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить блок-схему и программу, которая, вводит с клавиатуры 5 чисел и проверяет является ли частное от деления суммы первых трёх чисел на сумму двух последних целым числом. решить эту .
var x1,x2,x3,x4,x5: integer;
s: real;
begin
read(x1,x2,x3,x4,x5);
s: = (x1+x2+x3)/(x4+x5);
if round(s)=s then writeln("celoe - "s);
end.