01.04.2010, 21:29
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
rid3r~man..держи
PHP код:
var
x, y, z, a, i, s:integer;
Begin
For i:=100 to 999 do
begin
x:=i div 100;
y:=(i div 10) mod 10;
z:=i mod 10;
a:=x+y+z;
If (a = 11) and (i mod 17 = 0) then writeln (i);
end;
readln;
end.
Последний раз редактировалось Soherox; 01.04.2010 в 21:31..
|
|
|