Кузьма
5 год назад
Как узнать сколько троек чисел x, y, z от 1 до 100 удовлетворяют условию "x + y + z делится на 17"?Будем считать тройки, получаемые перестановкой чисел, различными. Например, (1, 2, 3) и (2, 1, 3) — это разные тройки
ОТВЕТЫ
Gray Miles
Oct 24, 2020
Var
x,y,z:byte;
k:integer;
Begin
k:=0;
For x:= 1 to 100 do
For y:= 1 to 100 do
For z:= 1 to 100 do
if (x+y+z) mod 17 = 0 then k:=k+1;
WriteLn('k = ',k);
End.
k = 58823
x,y,z:byte;
k:integer;
Begin
k:=0;
For x:= 1 to 100 do
For y:= 1 to 100 do
For z:= 1 to 100 do
if (x+y+z) mod 17 = 0 then k:=k+1;
WriteLn('k = ',k);
End.
k = 58823
510
Смежные вопросы:
