Есть задача и надо сказать, в чем ее суть:

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 ((a4) + (b2) = s) then

writeln (a, b) ;

end;

end;

end.

Question

Информатика

Наталий

2 июня, 18:43

Есть задача и надо сказать, в чем ее суть:

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 ((a4) + (b2) = s) then

writeln (a, b) ;

end;

end;

end.

+4

Ответы (1)

Знаете ответ?

Дека · Answer 1

Не понял, в чём смысл этой программки, работает она так: если с клавиатуры вводится нечетное число, то на экран выводится "инвалиды". Если же число четное, то выводится два столбца чисел: первый от 0 до s/4, а второй столбец от s/2 до 1 или до 0, но так, что сумма учетверенного числа из первого столбца и удвоенного числа из второго столбца составляет S.

Есть задача и надо сказать, в чем ее суть:var a, b, s, n, u:integer;beginreadln (s) ;n:=s mod 4;u:=s mod 2;if (S mod 2>0) then writeln ('Инвалиды')elsefor a:=0 to n dobeginfor b:=0 to u dobeginif ((a*4) + (b*2) = s) thenwriteln (a, b) ;end;end;end.