Дано натуральное число M. Составить программу, которая разбивает ...
Дано натуральное число M. Составить программу, которая разбивает это число на три приблизительно равных натуральных числа.
Есть ответ
12.12.2022
289
Ответ
program raf105;
var
n,n1,n2,n3: integer;
begin
write('Введите число: ');
readln(n);
n1:= n div 3;
n2:= n1;
if n mod 3 = 1 then
n3:= n1 + n mod 3
else if n mod 3 = 2 then
begin
n3:= n1 + 1;
n2:= n1 + 1;
end
else
n3:= n1;
writeln(n1,' ',n2,' ',n3);
end.
PascalABC
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022