Есть задача и надо сказать, в чем ее суть: var a,b,s,n,u:integer;
begin
readln (s);
n:=s mod 4;
u:=s mod 2;
if (S mod 2>0) then writeln ('Инвалиды')
else
for a:=0 to n do
begin
for b:=0 to u do
begin
if ((a*4) + (b*2) = s) then
writeln (a,b);
end;
end;
end.
begin
readln (s);
n:=s mod 4;
u:=s mod 2;
if (S mod 2>0) then writeln ('Инвалиды')
else
for a:=0 to n do
begin
for b:=0 to u do
begin
if ((a*4) + (b*2) = s) then
writeln (a,b);
end;
end;
end.
More Questions From This User See All