program senya;
var
a1, a2, a3, a4: integer;
begin
for a1 := 1 to 9 do
for a2 := 0 to 9 do
for a3 := 0 to 9 do
for a4 := 0 to 9 do
if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 15 = 0 then
writeln (a1,a2,a3,a4);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program senya;
var
a1, a2, a3, a4: integer;
begin
for a1 := 1 to 9 do
for a2 := 0 to 9 do
for a3 := 0 to 9 do
for a4 := 0 to 9 do
if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 15 = 0 then
writeln (a1,a2,a3,a4);
end.
b € [ 10;-13]
[-123;36]
Тоже program