S:=(k div 100) + ((k mod 100) div 10)+(k mod 10);
110₂=0*2⁰+1*2¹+1*2²=2+4=6₁₀
² ¹ ⁰
График Скорость Время
а 200км/ч 30 минут
b 100км/ч 1 час
c 25 км/ч 4 часа
d 16,66 км/ч 6 часов
е 5км/ч 6 часов
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
Ответ:
Добрый день!
Я не знаю Паскаль, но могу рассказать, что от Вас требуют.
Вы заводите функцию например rec
передаете в нее значение пременной А
внутри фунцкии выполняется: вызов той же функции от А - N. А также возвращается результат вызова этой функции
Также в начале функции вы проверяете, меньше ли это число, чем то, которое было изначально введено в N раз
Реализация на С
F(A,B)
{
if (A > B)
return F(A-N,B);
else
return A;
}
А в программе вызываем : F(N,N);