Предмет: Информатика,
автор: MaryVor
ПОМОГИТЕ!!! ОЧЕНЬ НУЖНО!!! ДАЮ 20 БАЛЛОВ!!!
Придумайте свою цепочку преобразований произвольного числа, такую, чтобы в результате всегда получалось число 7.
Ответы
Автор ответа:
1
var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
MaryVor:
спасибо большое
Похожие вопросы
Предмет: Химия,
автор: raisatka08
Предмет: Алгебра,
автор: Аноним
Предмет: Английский язык,
автор: fiaskoff
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: нона25