To
Tosha
помогите решить задачу по информатике в программе PascalABC
2.8. Для заданого натурального (7 < n <= 999) найти такие целые неотрицательные A и B, что 3A+5B = n .
2.8. Для заданого натурального (7 < n <= 999) найти такие целые неотрицательные A и B, что 3A+5B = n .
И что мы тут имеем? А то, что b=(n-3a)/5. Чем нагло воспользуемся:
for a:=1 to n div 3 do
if (n-3*a) mod 5 = 0 then
writeln(a, (n-3*a) div 5);
Вот неужели эти 3 строчки ты не мог сам написать?
тебе мало моего ответа полчаса назад?
VAR
A,B,n: integer;
BEGIN
readln(n);
for A := 1 to n div 3 do
for B := 1 to n div 5 do
if 3*A+5*B = n then writeln(A, ' ', B);
END.