Вопрос по информатике:
Есть задача и надо сказать, в чем ее суть:
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.
- 13.12.2017 15:14
- Информатика
- remove_red_eye 11323
- thumb_up 8
Ответы и объяснения 1
Не понял, в чём смысл этой программки, работает она так: если с клавиатуры вводится нечетное число, то на экран выводится "инвалиды". Если же число четное, то выводится два столбца чисел: первый от 0 до s/4, а второй столбец от s/2 до 1 или до 0, но так, что сумма учетверенного числа из первого столбца и удвоенного числа из второго столбца составляет S.
- 14.12.2017 20:11
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.